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FOREWORD 


The Software Engineering Laboratory (SEL) is an organization 
sponsored by the National Aeronautics and Space Administra- 
tion, Goddard Space Flight Center (NASA/GSFC) and created 
for the purpose of investigating the effectiveness of soft- 
ware engineering technologies when applied to the develop- 
ment of applications software. The SEL was created in 1977 
and has three primary organizational members: 

NASA/GSFC (Systems Development and Analysis Branch) 

The University of Maryland (Computer Sciences Department) 
Computer Sciences Corporation (Flight Systems Operation) 

The goals of the SEL are (1) to understand the software de- 
velopment process in the GSFC environment; (2) to measure 
the effect of various methodologies, tools, and models on 
this process; and (3) to identify and then to apply success- 
ful development practices. The activities, findings, and 
recommendations of the SEL are recorded in the Software En- 
gineering Laboratory Series, a continuing series of reports 
that includes this document. A version of this document was 
also issued as Computer Sciences Corporation document 
CSC/SD-82/ 6 083- VI and -V2. 

The primary contributors to this document include 

Pei-Shen Lo (Computer Sciences Corporation) 

Suellen Eslinger (Computer Sciences Corporation) 

Other contributors include 

William Decker (Computer Sciences Corporation) 

Single copies of this document can be obtained by writing to 

Frank E. McGarry 
Code 582.1 
NASA/GSFC 

Greenbelt, Maryland 20771 
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ABSTRACT 


This two-volume document presents the Software Engineering 
Laboratory (SEL) data base reporting software user's guide 
and system description. The SEL data base reporting soft- 
ware programs provide formatted listings and summary reports 
of the SEL data base contents. This document is intended to 
serve as a reference or tool for the SEL data base adminis- 
trator, librarians, and programmers and for managers and 
researchers involved in SEL data base activities. It de- 
scribes the operating procedures and system information for 
18 different reporting software programs. 

Volume 1 contains an introduction summarizing the reporting 
software programs and detailed operating procedures for each 
program. Sample output reports from each program are also 
provided. Volume 2 contains descriptions of the structure 
and functions of each reporting software program. Baseline 
diagrams, module descriptions, and listings of program gen- 
eration files are also included* 
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SECTION 3 - SYSTEM DESCRIPTION 


This section contains the system descriptions for the SEL 
data base reporting programs. The function and structure of 
each program are presented. All accessed files are de- 
scribed, and, when applicable, baseline diagrams and de- 
scriptions of all routines in the program are provided. in 
addition, the task build procedure is described, including 
the command files, overlay structure, and required libraries. 
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3 . 1 DETAILED COMPONENT STATUS REPORT REPORTING PROGRAM (CS) 


3.1.1 INTRODUCTION 

The Detailed Component Status Report Reporting Program (CS) 
produces a report of the Component Status Report (CSR) file 
for a given project. The program provides a detailed break- 
down of programmer hours as reported on the weekly CSR form 
for a given project (Section 2.1). 

3.1.2 PROGRAM STRUCTURE 
3 . 1 . 2 . 1 Files Accessed 

The CS program accesses seven input files and two output 
files as described below. 


Input File Name 

[204, 6JCSR.NL 
[204,6] CSR . KEY 

[204.1] ENCODE. HDR 

[204.1] HEADER. HDR 

[204.1] EST. HDR 

[204.1] <PRJNAM> . CSR 

[204.1] <PRJNAM>.CTF 

Output File Name 

<PRJNAM> . CS 

FOR010.DAT 


Description 


CS parameters tile 

CSR activity keyworas file 

Encoding Dictionary (ENC) file 

Phase Dates (HDR) file 

Estimated Statistics (EST) file 

CSR file for the given project 

Component Information File (GIF) 
for the given project 

Description 


File containing the detailed CSR re- 
port 

File containing a list of all other 
activity names in file 
<PRJNAM> . CSR that did not match 
an activity subcategory name in file 
CSR. KEY 


In these file names, <PRJNAM> is the name of the. project 
selected by the user. 

3 . 1 . 2 . 2 Baseline Diagram 

Figure 3-1 is the baseline diagram for the CS program. The 
CSRRPT routine is the main driver. It displays the help 
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information, gets parameter values and other activity keyword 
values, obtains project and programmer names, and processes 
the selected CSR data. CSRRPT loops through this process 
until a/v Z (control Z) is returned by the user in response 
to a prompt. 

3.1.3 SUBROUTINE/SUBSYSTEM DESCRIPTION 

The routines forming the CS program are grouped here by 
function. In each routine, the calling sequence variables 
are grouped according to input, input and output (if any) , 
and output and appear in the calling sequence in that 
order. In the following descriptions, each group of vari- 
ables begins a new line. The calling sequence variables for 
the major CS routines are described in Section 3.1. 3. 8. 
Descriptions of the calling sequence variables for utility 
routines are not provided. In addition to the routines de- 
scribed in this section, the CS program also uses the fol- 
lowing system routines: DATE, ERRSET, and TIME. 

3 . 1 . 3 . 1 Process CSR Data and Compute Statistic s 

These six major routines read the CSR file and accumulate 
statistics for the selected project and/or programmers. 

ROUTINE: ACC 

FUNCTION: Accumulates CSR statistics for a selected pro- 

grammer 

CALLING SEQUENCE: 

CALL ACC (ACAT, ANAME, CSRFIL, FCOD, FDES , FTST, KEY, 

MAXCMP , MAXOTH, NCAT , NL, NNAME , NPROG , PROGCO , 
PRJNAM, RANGES, SOURCE, TOTFLG , 

A, ACOL, AOTH , AOTHTT, AROW, ASUBTT , ATOT, C, 
CCOL, CNAMES , CROW, CSIZE, CSORTX, CTOT, ERROR) 
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ROUTINE: AS TAT 


FUNCTION: Accumulates component and other activity statis- 

tics by reading the CSR file 

CALLING SEQUENCE: 

CALL ASTAT (ANAME, CSRFIL, FCOD, FDES , FRREQ , FTST, KEY 
MAXCMP, MAXOTH, NL, PRJNAM, PROGCO , RANGES, 
SOURCE, TOTFLG , 

A, AOTH , C, CNAMES, CSIZE, CSORTX, ERROR) 


ROUTINE : CSRRPT 

FUNCTION: Main routine of the CS program, produces the de- 

tailed CSR report 

CALLING SEQUENCE: None 


ROUTINE : DOCSR 

FUNCTION: Processes CSR data by obtaining statistics and 

writes the CSR output report file 

CALLING SEQUENCE: 

CALL DOCSR (ACAT, ANAME, CATNAM, CSRFIL, KEY, MAXPRG , 
NCAT , NL, NNAME , NPROG , PRGCOD, PRGNAM , 
RANGES, RPTFIL, SOURCE, SUMARY) 


ROUTINE : FRACT 

FUNCTION: Reads the CSR file for the given project and com 

putes the fraction of the design, code, and test phases for 
the given programmer 

CALLING SEQUENCE: 

CALL FRACT (CSRFIL, NL, PRJNAM, PROGCO, RANGES, TOTFLG, 

FCOD, FDES, FRREQ, FTST, TFRCOD , TFRDES , 
TFRTST, ERROR) 
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ROUTINE: SUMOTH 


FUNCTION: Adds the time for a given other name to the ap- 

propriate statistics 

CALLING SEQUENCE: 

CALL SUMOTH (ANAME, FDATE , FCOD, FDES , FRREQ, FTST, KEY, 
MAXOTH, NL, OTHNAM, OTHOUR, RANGES, SOURCE, 

A, AOTH , 

FOUND ) 

3. 1. 3. 2 Write the CSR Report File 

These four routines write the CSR output report file. 
ROUTINE: CMPRPT 

FUNCTION: Prints the report section containing alphabetized 

component names and corresponding accumulated hours 

CALLING SEQUENCE: 

CALL CMPRPT (C, CNAMES , CSIZE, CSORTX, IPRG, MAXPRG, NL, 
PRGNAM , PRJNAM, RPTFIL, RPTITL, TOTFLG) 


ROUTINE : FSUMRY 

FUNCTION: Prints a six-line header summary with data from 

the Phase Dates and Estimated Statistics files 

CALLING SEQUENCE: 

CALL FSUMRY ( IRPTF , PRJNAM) 

ROUTINE : HEADER 

FUNCTION: Prints a one-line title for each report page that 

includes the date and project name 

CALLING SEQUENCE: 

CALL HEADER (IRPTF, PRJNAM, RPTITL) 
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ROUTINE : OTHRPT 


FUNCTION: Prints a report of other activity statistics 

CALLING SEQUENCE: 

CALL OTHRPT (A, ACAT, ACOL, ANAME, AOTH, AROW, ASUBTT, 
ATOT, CATNAM, IPRG, KEY, MAXOTH, MAXPRG , 
NCAT, NL, NNAME , PRGNAM, PRJNAM, RPTFIL , 
RPTITL , TOTFLG) 

3 . 1 . 3 . 3 Obtain Data From Terminal or External File 

These nine routines obtain information from a user's 
response to a terminal prompt or from an external file. 
This information includes input parameters, programmer 
names, other activity keyword names, and the project name. 

ROUTINE: GETFLD 

FUNCTION: Displays the given text on the terminal and 

prompts for a character string 

CALLING SEQUENCE: 

CALL GETFLD (TEXT, EXTFIL , FLDLEN , 

TERMNL , EOFTTY, ERROR, 

FIELD) 


ROUTINE : GETNAM 

FUNCTION: Gets all CSR programmer codes 

CALLING SEQUENCE: 

CALL GETNAM (CSRFIL, MAXPRG, PRJNAM, 
NPROG , PRGCOD , ERROR) 


ROUTINE : GETNL 

FUNCTION: Reads the sequential parameter file and fills the 

parameter array 
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CALLING SEQUENCE: 

CALL GETNL (NLDSN, NLFIL, MAXNL, 

NL, ERROR) 

ROUTINE : GETPRG 

FUNCTION: Obtains programmer names from the user and con- 

verts them to programmer codes from the Encoding Dictionary 

CALLING SEQUENCE: 

CALL GETPRG (CSRFIL, EXTFIL , MAXPRG, NL, PRJNAM, TERMNL, 
NPROG, PRGCOD , PRGNAM, SUMARY, EOF, ERROR) 


ROUTINE : GTKEYS 

FUNCTION: Reads the sequential keywords file to obtain the 

necessary other activity names and keys for the detailed CSR 
report 

CALLING SEQUENCE: 

CALL GTKEYS (KEYFIL, MAXOTH, NL, 

ACAT, ANAME, CATNAM, KEY, NCAT , NNAME , 
SOURCE, ERROR) 

ROUTINE : FENCA 

FUNCTION: Finds the description field on the Encoding Dic- 

tionary corresponding to the given type and code 

CALLING SEQUENCE: 

CALL FENCA ( IENCF, TYPE, CODE, 

NAME, REST, FOUND) 


ROUTINE : FENCB 

FUNCTION: Finds the description field on the Encoding Dic- 

tionary corresponding to the given type and name 
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CALLING SEQUENCE: 

CALL FENCB ( IENCF , TYPE, NAME, 

CODE, REST, FOUND) 

ROUTINE: HELP 

FUNCTION: Prints help information to the terminal 

CALLING SEQUENCE: 

CALL HELP 

ROUTINE: NAME 3 

FUNCTION: Concatenates the given strings to form a complete 

file name 

CALLING SEQUENCE: 

CALL NAME 3 (DISK, UIC, NAME, EXTENS, 

DSN) 

3. 1. 3. 4 Sort and Search Routine s 

These four routines provide some sort and search functions. 
ROUTINE: INSET 

FUNCTION: Determines if the given eight-character name is 

in the given list of names 

CALLING SEQUENCE: 

CALL INSET (STRING, NAMES, MAXNAM , 

INDEX, FOUND) 

ROUTINE: PHSCH2 

FUNCTION: Determines to which phase the given date belongs 

CALLING SEQUENCE: 

CALL PHSCH2 ( FDATE , RANGES, 

PHNUM, INPHAS) 

3-10 


8818 



ROUTINE: SORTNM 


FUNCTION: Produces an array of pointers pointing to the 

given name array in alphabetical order 

CALLING SEQUENCE: 

CALL SORTNUM (NAMES, NDIM, NUSED, NAMLEN, 

SORTX) 


ROUTINE: STACK 2 

FUNCTION: Determines whether the given name is in the given 

name array, adds it if it is not, and returns the location 
of the given name in the given name array 

CALLING SEQUENCE: 

CALL STACK 2 (ARYMAX, NAME, NAMLEN, NL, 

ARY, ARYSIZ, 

LOC, MAXERR) 

3 . 1 . 3 . 5 File Open and Read Routines 

These nine routines either open an indexed file or read rec- 
ords from an indexed file. 

ROUTINE: FCIF3 

FUNCTION: Reads one record from the GIF using the tertiary 

key (component code) and converts all data to internal format 

CALLING SEQUENCE: 

CALL FCIF3 (ICIFF, CCODE , 

PROJNO, CNAME , ICODE, PANV, MODFUN, SYSFUN, 
ORIGIN, NEXEC, NLINES , NCOMNT , IETAl , IETA2 , 
NETA1 , NETA2 , N 10 VAR, MCCABE, NFUNCT , NIO, 
NASGN , NCALL , N.FMT , STATUS, EOF, ERROR) 
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ROUTINE: FCSR 


FUNCTION: Reads one record from the CSR file using a 

FORTRAN read ' 

CALLING SEQUENCE: 

CALL FCSR ( ICSRF , 

FORMNO, SEQNO, PROJNO, PROGNO, FDATE , COMPCO, 
TIMES, OTHNAM, OTHOUR, ISTAT, PHASE, EOF, 

ERROR) 

ROUTINE: FCSR 3 

FUNCTION: Reads one record from the CSR file using the ter- 

tiary key (programmer code) 

CALLING SEQUENCE: 

CALL FCSR3 (ICSRF, PROGCO, 

FORMNO, SEQNO, PROJNO, PROGNO, FDATE, COMPCO, 
TIMES, OTHNAM, OTHOUR, ISTAT, PHASE, EOF, 

ERROR ) 

ROUTINE: FEST 

FUNCTION: Reads one record from the EST file using the 

secondary key (project name) 

CALLING SEQUENCE: 

CALL FEST ( IESTF , NAME, 

PROJ , NCOMP, MODDEL, MODNEW, MODMOD, NRUNS , 
NCHANG , PAGDOC, LINDEL, LINNEW, LINMOD, TOTEXT , 
NEWEXT, MODEXT, PROGHR, MGMTHR , OTHRHR , HR95, 
HR75, OTHCMP , STATUS, ACTIVE, PRJCAT, FOUND, 
ERROR) 

ROUTINE: FHDR 

FUNCTION: Reads one record from the HDR file using the 

secondary key (project name) 
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CALLING SEQUENCE: 

CALL FHDR (IHDRF, PR JNAM , 

PROJ, DEVCMP , TARG, ALIEN, RANGES, STATUS, 
ERROR) 

ROUTINE: FOPEN 

FUNCTION: Opens an indexed file 

CALLING SEQUENCE: 

CALL FOPEN (IUNIT, FILNAM, 

ERROR) 


ROUTINE : FREAD 

FUNCTION: Reads one indexed record 

CALLING SEQUENCE: 

CALL FREAD (IUNIT, KEYVAL, KEYLEN, LRECL, 
BUFFER, ERROR) 


ROUTINE : OPENR 

FUNCTION: Opens a sequential file for read only 

CALLING SEQUENCE: 

CALL OPENR (IUNIT, FILNAM, LEN, 

ERROR) 


ROUTINE : RDSEQ 

FUNCTIONS: Reads one record in a sequential file 

CALLING SEQUENCE: 

CALL RDSEQ (IUNIT, NCHAR , 

CHARS, EOF) 
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3 . 1 . 3 . 6 Routines for String Movement or Comparison 


These eight routines deal with string movement or comparison. 
ROUTINE: BLANK 

FUNCTION: Initializes an array to blanks 

CALLING SEQUENCE: 

CALL BLANK (ARRAY, NUM) 

ROUTINE: CHARGT (LOGICAL FUNCTION) 

FUNCTION: Determines if the first string follows the second 

in alphabetical order 

CALLING SEQUENCE: 

CHARGT (STRNG1, STRNG2 , LEN) 

ROUTINE: CHINT4 

FUNCTION: Converts the given character string to an 1*4 

integer 

CALLING SEQUENCE: 

CALL CHINT4 (CHARS, NCHAR , 

I4NUM, ERROR) 


ROUTINE: CHRINT 

FUNCTION: Converts the given character string to an 1*2 

integer 

CALLING SEQUENCE: 

CALL CHRINT (CHARS, NCHAR, 

I2NUM, ERROR) 
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ROUTINE: MATCHS (LOGICAL FUNCTION) 

FUNCTION: Determines if the two input strings are. the same 

CALLING SEQUENCE: 

MATCHS ( ARRAY 1, ARRAY 2, NBYTES) 

ROUTINE: MOVE 

FUNCTION: Moves a given number of bytes from one address to 

another 

CALLING SEQUENCE: 

CALL MOVE (A, B, LEN) 

ROUTINE: V 2 MOVE 

FUNCTION: Copies bytes from one row of a virtual array to a 

nonvirtual character string 

CALLING SEQUENCE: 

CALL V 2 MOVE ( ARY2D, STRING, NROW, DIMl, DIM2) 

ROUTINE : WHERE 

FUNCTION: Finds the location of the given character in the 

given string 

CALLING SEQUENCE: 

CALL WHERE (CHAR, STRING, LEN, 

LOC, FOUND) 

3 . 1 . 3 . 7 Mathematical Functions 

These two routines perform mathematical functions. 

ROUTINE: RPCT (REAL FUNCTION) 

FUNCTION: Computes a percentage 
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CALLING SEQUENCE: 

RPCT (I, J) 

ROUTINE: SUMR4 (REAL FUNCTION) 

FUNCTION: Computes the sum of all numbers in a given array 

CALLING SEQUENCE: 

SUMR4 (ARRAY, N) 

3. 1.3. 8 Variable Description 

The variables in the calling sequences of major CS routines 
are described below. 


Name 

Type 

Description 

A ( 6 , MAXOTH) 

R*4 

Array containing hours spent on 
other activities during each phase 

ACAT (MAXOTH) 

1*2 

Activity name category array to 
indicate which category the given 
name belongs to 

ACOL (6) 

R*4 

Array containing column total of 
each phase 

AN AME( 12, MAXOTH) 

L*1 

Array containing other activity 
names 

AOTH ( 6 ) 

R*4 

Array containing hours spent on 
unknown activities that were not 
on the list of ANAME for each phase 

AOTHTT 

1*2 

Not used 

AROW (MAXOTH) 

R*4 

Array containing total hours spent 
on each activity 

ARY (NAMLEN , 
ARYMAX) 

L*1 

Name array to be searched 

ARYMAX 

1*2 

Maximum number of names in ARY 

ARYSIZ 

1*2 

Actual number of names in ARY 

ASUBTT (6,20) 

R*4 

Array containing total hours spent 
on each category for eacn phase 

ATOT 

1*2 

Not used 

C ( 9 , MAXCMP ) 

R*4 

Array containing hours spent on a 
component during different phases 
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Name 

Type 

Description 

CATNAM (20,20) 

L*1 

Array containing category names 
for other activities 

CCOL ( 3 ) 

1*2 

Not used 

CNAMES ( 8 , MAXCMP) 

L*1 

Array containing component names 

CROW (MAXCMP ) 

1*2 

Not used 

CSIZE 

1*2 

Total number of components 

CSORTX (MAXCMP) 

1*2 

Array containing index for sorted 
component names 

CSRFIL 

1*2 

FORTRAN unit number for CSR file 

CTOT 

1*2 

Not used 

EOF 

L*1 

End-of-file flag 

EOFTTY 

L*1 

Flag for end of file on terminal 

ERROR 

L*1 

Error flag 

EXTFIL 

1*2 

FORTRAN unit number for reading 
user input from terminal 

FCOD 

R*4 

Fraction of time a given program- 
mer spent on coding 

FDATE ( 3 ) 

1*2 

Form date ( YY , MM , DD ) 

FDES 

R*4 

Fraction of time a given program- 
mer spent on design 

FIELD (FLDLEN) 

L* 1 

Field to be obtained 

FLDLEN 

1*2 

Length of field 

FOUND 

L*1 

Flag indicating a given name is 
found 

FRREQ ( 7 ) 

R* 4 

Fraction of time a given program- 
mer spent on other activities 
during each phase 

FTST 

R* 4 

Fraction of time a given programmer 
spent on testing 

INDEX 

1*2 

Location of a. given name within an 
array of names 

INPHAS 

L*1 

Flag indicating if a given form 
date is in any phase 

IPRG 

1*2 

Current programmer number 

IRPTF 

1*2 

FORTRAN unit number for CS output 
report file 
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Name 

KEY (MAXOTH) 

KEYFIL 

* 

LOG 

MAXCMP 

MAXERR 

MAXNAM 

MAXNL 

MAXOTH 

MAXPRG 

NAME (NAMLEN) 

NAMES (NAMLEN, 
NDIM) 

NAMLEN 

NCAT 

NDIM 

NL (MAXNL) 

NLDSN (27) 

NLFIL 

NNAME 

NPROG 

NUSED 

OTHNAM ( 8 ) 

OTHOUR 

PHNUM 

PRGCOD (MAXPRG) 
PRGNAM( 8, MAXPRG) 


Type Description 

1*2 Array containing keywords for 
other activity names 

1*2 FORTRAN unit number for data set 
CSR. KEY 

1*2 Location of a given name in the 
given name array 

1*2 Maximum number of components 

L*1 Flag indicating whether the max- 

imum number of components is ex- 
ceeded 

1*2 Maximum number of other activity 

names 

1*2 Maximum number of input parameters 

1*2 Maximum number of other activity 

names 

1*2 Maximum number of programmers 

L*1 Given name to be searched for 

L*1 Name array to be sorted or to be 

searched 

1*2 Length of the name 

1*2 Number of name categories 

1*2 Maximum number of names 

1*2 Array containing input parameter 

values 

L*1 Input parameter file name 

1*2 FORTRAN unit number for the input 
parameter file (CSR.NL) 

1*2 Total number of other activity 

names 

1*2 Total number of programmers 

1*2 The actual number of names (fill 
size of NAMES) 

L*1 Other activity name 

R*4 Other activity worn hours 

1*2 Number of phase containing date 

1*4 Array containing programmer's coae 

L*1 Array containing programmer's name 
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Name 


Description 


PR JNAM ( 8 ) 
PROGCO 

RANGES (3,2,7) 

RPTFIL 

RPTITL ( 40 ) 
SORTX(NDIM) 

SOURCE (MAXOTH) 

STRING (8) 
SUMARY 

TERMNL 

TEXT ( FLDLEN ) 
TFRCOD 

TFRDES 

TFRTST 

TOTFLG 


L*1 Project name 

1*4 Given programmer's code 

1*2 Start and stop phase dates 

(YY,MM,DD) 

1*2 FORTRAN unit number for CS output 

report file 

L*1 Report title 

1*2 Array containing index for sorted 

names 

L*1 Array containing keywords for 

other activity names 

L*1 Name string 

L*1 Flag indicating whether a summary 

report is needed 

L*1 Flag indicating whether terminal 

or external file is to be read 

L* 1 Prompt text string 

R*4 Fraction of total time spent on 
coding 

R*4 Fraction of total time spent on 
design 

R*4 Fraction of total time spent on 
testing 

L*1 Flag indicating whether processing 

is for all programmers 


3.1.4 TASK BUILD PROCEDURE 


3 . 1 . 4 . 1 Command Procedures 

The CS program can be generated from the source code by ex- 
ecuting the command procedure CSGEN.CMD under UIC [204,6]. 
This command procedure references three command files — 
CSFPP.CMD, CSFOR.CMD, and CS.TKB— all under UIC [204,6]. 
Figure 3-2 is a listing of CSGEN.CMD, the command procedure 
to precompile, compile, and task build the CS program. The 
CS program is generated by entering the following command: 

@ [204,6] CSGEN 
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: 1 

: SCSGEN.CMD 2 

3 

: THIS COMMAND PROCEDURE GENERATES THE CS TASK FROM STRUCTURED 3 

; FORTRAN SOURCE. 5 

: . 6 

: PRECOMPILE STRUCTURED FORTRAN SOURCE 7 

: 3 

®[ 204 , 6 JCSFPP g 

1 10 

: ACSFPP.CMD n 

: 1 2 

; THIS COMMAND PROCEDURE PRECOMPILES ALL ROUTINES WHICH CS PROGRAM 13 

: USES. ALL ROUTINES ARE WRITTEN IN STRUCTURED FORTRAN. 14 

15 

; ALL ROUTINES WITH PREFIX CS 16 

: 17 

; FPP SY : [2C4.6JCSACC 18 

; FPP SY: [204.6]CSASTAT 19 

; FPP SY : [204.6 jcSCMPRPT 20 

; FPP SY : [204.6 ]CSCSRRPT 2 1 

: FPP SY : [ 204 . 6 JCSDOCSR 22 

: FPP SY : [ 204 , S ] CSFRACT 23 

: FPP SY : [ 204 , 6 ]CSGETNAM 24 

: FPP S Y : [ 204 , 6 ] CSGETNL 25 

; FPP SY : [ 204 , 6 ]CSGETPRG 2 S 

: FPP SY : [204,6 JCSGTKEYS 27 

; FPP S Y : [ 204 ,6]CSHELP 2 S 

;FPP SY : [ 204 , S ] CSINSET -,g 

: FPP SY: [204,6 JCSOTHRPT 3 0 

; FPP SY : [204 ,6]CSS0RTNM 31 

: FPP SY : [204,6 [CSSTACK2 32 

; FPP S Y : [ 204 . 6 JCSSUMOTH 33 

: 34 

: ROUTINE WITH PREFIX NF 35 

: , 36 

: FPP SY : [ 204 . 6 ] NFSUM 37 

: 33 

; ROUTINES WITH PREFIX UT 39 

•' 40 

; FPP SY: [204.7 ]UTELANK 4, 

; FPP SY: [204.7 1UTCHARGT 42 

: FPP SY: [204.7 3UTCHINT4 J3 

: FPP SY: [204.7 JUTCHRINT 44 

: FPP S Y : [ 204 . 7 ]UTFCI F3 45 

; FPP SY : [ 204 . 7 JUTFCSR 46 

: FPP SY: [204,7 ]UTFCSR3 47 

: FPP SY : [ 204 , 7 [UTFENCA 43 

: FPF SY: [204.7 ]UTFENCB 49 

: FPP SY: [204.7 JUTFEST g/-, 

; FPP SY: [204.7 [UTFHDR 5 1 

; FPP SY : [204.7 lUTFOPEN *2 

; FPP SY: [204.7 JUTFREAD S3 

; FPP SY: [204.7 [UTFSUMRY g 4 

;FPP SY: [204.7 JUTGETFLO *5 


Figure 3-2. CS Task Generation Command Procedure 
(CSGEN.CMD) (1 of 3) 
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;FPP SY : [ 204 . 7 ]UTHEADER 56 

: FPP SY: [204,7 juTMATCHS 57 

;FPP SY: [ 204 , 7 ]UTMQVE 58 

; FPP SY: [204.7 ]UTNAME3 59 

; FPP SY: [204.7 JUTPHSCH2 60 

: FPP SY: [204.7 [UTRDSEQ 61 

; FPP SY: [204,7 [UTRPCT 62 

; FPP SY: [204.7 JUTSUMR4 C3 

: FPP SY : [204.7 ]UTV2M0VE 64 

; FPP SY : [204.7 juTWHERE 65 

• 66 

; COMPILE FORTRAN SOURCE 67 

> S3 

® [ 204 , S 1 CSFOR sg 

70 

; ®CSFOR . CMD 71 

: 72 

; THIS COMMAND PROCEDURE COMPILES ALL FORTRAN ROUTINES WHICH CS 73 

; PROGRAM USES. 74 

: 75 

; ROUTINES WITH PREFIX CS 75 

: 77 

; F0R/F4P/0BJECT : [ 204 , 6JCSACC [204,6]CSACC 78 

; F OR /F 4 P/ OB JECT : [ 204 ,6]CSASTAT [ 204 , 6 JCSASTAT 70 

; FOR/F4P/OB JECT : [ 204 , 6 JCSCMPRPT [ 204 . S ]CSCMPRPT 80 

: F0R/F4P/0B JECT : [204.6JCSCSRRPT [ 204 . 6 JCSCSRRPT 81 

: F0R/F4P/GB JECT : [204 ,G JCSOOCSR [204.SJCSD0CSR 82 

:F0R/F4P/0BUECT: [204 , S JCSFRACT [ 204 . S JCSFRACT 83 

; F0R/F4P/0BJECT : [ 204 , G JCSGETNAM [ 204 . S ] CSGETNAM 84 

;F0R/F4P/0BJECT: [204,6 JCSGETNL [ 204 , 6 JCSGETNL 85 

; FOR/ F4P/0B JECT : [ 204 . 6 )CSGETPRG [204 , 6 ]CSGETPRG 86 

; F0R/F4P/0B JECT: [204.6 JCSGTKEYS [ 204 . 6 JCSGTKEYS 87 

; FOR/F4P/0B JECT : [ 204 . 6 JCSHELP [ 204 . 6 1CSHELP 88 

; FOR /F4P/0B JECT : [ 204 , 6JCSINSET [204 , S JCSINSET 89 

; FOR/F4P/OS JECT : [ 204 . 6 ]CSOTHRPT [ 204 . 6 ] CSOTHRPT 90 

;F0R/F4P/0BJECT: [ 204 .6 ]CSSORTNM [204.6]CSSORTNM 91 

: FOR /F4P /OB JECT : [ 204 , 6 ]CSST ACK2 [ 204 . 6 ]CSSTACK2 92 

; FOR/ F4P/0B JECT : [ 204 . 6 jCSSUMOTH [ 204 . 6 JCSSUMOTH 93 

: 94 

; ROUTINE WITH PREFIX NF g 5 

» a 5 

; F0R/F4P/ OBJECT : [ 204 , 6 JNFSUM [ 204 . 6 JNFSUM 97 

• 93 

; ROUTINES WITH PREFIX UT go 

1 • 100 

; F0R/F4P/0B JECT: [204.7 JUTBLANK [ 204 , 7 JUTBLANK 101 

; F0R/F4P/0B JECT: [204,7 JUTCHARGT [ 204 , 7 ]U TCHARGT 102 

: F0R/F4P/0B JECT : [ 204 , 7 juTCHINT 4 [ 204 . 7 ]UTCHINT4 103 

; F0R/F4P/0B JECT: [204.7 JUTCHRINT [ 204 . 7 JUTCHRINT 1C4 

; F0R/F4P/0B JECT : [204 , 7 JUTFCI F3 [204 , 7 JUTFCIF3 105 

; F0R/F4P/0B JECT: [204.7 juTFCSR [ 204 . 7 JUTFCSR 106 

; F0R/F4P/0B JECT : [ 204 . 7 ] UTFCSR3 [ 204 . 7 ] UTFCSR3 107 

; F0R/F4P/0B JECT: [204,7 JUTFENCA [ 204 , 7 JUTFENCA 1^3 

; F0R/F4P/0BJECT : [204 . 7 ]UTFENCB [204. 7]UTFENCB 103 

; F0R/F4 P/OBJECT : [ 204 . 7 ]UTFEST [ 204 , 7 ]UTFEST HO 


Figure 3-2. CS Task Generation Command Procedure 
(CSGEN.CMD) (2 of 3) 
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;F0R/F4P/0BJECT: [204,7 ]UTFHDR [ 204 , 7 JUTFHOR 111 

; F0R/F4P/QBJECT : [204 ,7 3UTFC1PEN [ 204 . 7 [UTFOPEN 112 

; F0R/F4P/0BJECT : [204 , 7 ]UTFREAD [204 , 7]UTFREAD 113 

; FOR/ F4P/0B JECT : [ 204 „ 7 JUTFSUMRY [ 204 . 7 [UTFSUMRY 114 

; FOR/F4P/OBJECT : [ 204 , 7 [UTGETFLD [ 204 . 7 JUTGETFLD 115 

; F0R/F4P/0B JECT: [204,7 [UTHEADER [ 204 , 7 [UTHEADER 116 

; F0R/F4P/0S JECT: [204,7 JUTMATCHS [ 204 . 7 [UTMATCHS 117 

: F0R/F4P/0B JECT : t 204,7 ]UTMOVE [ 204 , 7 ]UTMOVE 118 

; F0R/F4P/0B JECT: [204.7 ]UTNAME3 [ 204 , 7 JUTNAME3 119 

; F 0R/F4 P/OBJECT : [204 . 7 JUTPH5CH2 [ 204 . 7 JUTPHSCH2 120 

; F0R/F4P/0BJECT : [ 204 , 7 [UTRDSEQ [ 204 , 7 JUTRDSEQ 131 

: F0R/F4P/0B JECT : [ 204 . 7 JUTRPCT [ 204 , 7 juTRPCT 12 2 

: FOR /F4P/0B JECT : [204 , 7]UTSUMR4 [ 204 , 7 [UTSUMR4 1_23 

; F0R/F4P/0B JECT : [ 204 , 7 ]UTV2M0VE [ 204 . 7 [UTV2M0VE 124 

; F0R/F4P/0B JECT : [ 204 . 7 [UTWHERE [ 204 , 7 JUTWHERE 125 

• 126 

5 GENERATE THE CS TASK IMAGE 127 

: 128 

TKB * [ 204 , 6 ] CS • TKB 12 o 

l 1 TO 

: MS. TKB 131 

= 132 

; THIS COMMAND PROCEDURE BUILDS A TASK IMAGE FOR THE DETAILED 133 

; COMPONENT STATUS REPORT PROGRAM (CS) . 134 

■* 135 

: [204.5 ]CS=[ 204,6 [ JCS/MP 136 

: UNITS- 1 1 137 

; ACTF I L-8 13a 

139 

* 140 


Figure 3-2* CS Task Generation Command Procedure 
(CSGEN.CMD) (3 of 3) 
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3 . 1 . 4 . 2 Overlay Structure 

The CS program is overlaid to reduce the memory space re- 
quirement. Figure 3-3 is a listing of the Overlay De- 
scriptor Language file, [204,6]CS.ODL, needed to build the 
CS program task image. The system libraries RMSllM.ODL and 
RMS12X.ODL are needed for the overlay. 
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^CS.ODL 


THE OVERLAY STRUCTURE FOR THE DETAILED COMPONENT STATUS REPORT 
PROGRAM (CS) 



.ROOT 

$TREE 1 

, OTSALL , RMSALL 



STREE1 : 

. FCTR 

$ROOT- 

RMSROT-OTSROT-* (SHLP . SNL , SKEY . SPRG, SDO ) 

SROOT: 

.FCTR 

[204, 

6 ]CSCSRRPT-[ 204 , 

'7 JUTMOVE - [204, 

7 3 UTNAME3 -$R0T4 

SR0T4 : 

. FCTR 

[204. 

7]UTM4TCHS-SRDT6 



SROTG : 

. FCTR 

[ 204 , 

7 ]UTOPENR -[204, 

7 3UTRDSE0 -SR0T8 


SR0T8: 

.FCTR 

[204, 

7 [UTFENCA -[204. 

7 JUT FENCE -[204, 

7 JUTBLANK -SR0T1 

SR0T12: 

. FCTR 

[ 204 . 

7]UTFRE4D -[204, 

7 JUTGETFLD- [ 204 , 

7 ]UTWHERE -SR0T1 

SR0T14: 

.FCTR 

[204, 

7]UTHEADER-[204, 

7 JUTFHDR -[204. 

7 JUTFOPEN 

SHLP: 

.FCTR 

[204, 

6 Jcshelp 



$NL: 

. FCTR 

[ 204 , 

6 JCSGETNt 



SKEY: 

. FCTR 

[204, 

S]CSGTKEYS-[204, 

7 JUTCHRJNT 


SPRG : 

.FCTR 

[204, 

S ]CSGETPRG- [ 204 , 

S3CSGETNAM-SPRG2 


SPRG2: 

. FCTR 

[204, 

7 ]UTCHINT4 



; $D0 : 

.FCTR 

[204, 

SlCSDOCSR -SRCSR 

-SRCSR3-SD02 


SDO : 

.FCTR 

[204, 

6]CSD0CSR -SD02 



$002 : 

. FCTR 

(SHED, 

SFR . SACC . SORPT , SCRPT) 


SHED : 

.FCTR 

[204. 

7]UTFSUMRY-[204, 

73UTFEST 


$ACC: 

.FCTR 

[204, 

6 ]CSACC -(SFR, 

SAS.SSUM) 


SFR : 

. FCTR 

[204. 

6 JCSFRACT -[204, 

73UTPHSCH2-SFR2 


SFR2: 

.FCTR 

[204. 

7]UTSUMR4 -[204. 

7 JUTCHINT4-SFR3 


$FR3 : 

. FCTR 

( t 204 , 

7 ]UTFCSR . [204. 

7 ]UTFCSR3) 



$ AS : 

$AS2: 

$PHS : 

SINS: 

SRCSR: 

SRCSR3 

SCIF: 

$ STK : 
SSORT : 


SSUM: . FCTR [204, 6 ]NFSUM 

SORPT: .FCTR [204, 6 ]C$OTHRPT-[ 204 , 7]UTRPCT 

SCRPT: .FCTR [204. GjCSCMPRPT 


«LB: [1.1 ]RMS1 1M.0DL 

£LB:[ 1, 1 ] RMS 1 2X . ODL 
. END 


.FCTR [204, G]CSASTAT -[204, G ]CSSUM0TH-$PHS-$AS2 
.FCTR ( SINS, SRCSR, SRCSR3, SCI F.SSTK, SSORT) 

.FCTR [204, 7 ]UTPHSCH2 
.FCTR [204, 63CSINSET 
.FCTR [204, 7 JUTFCSR 
.FCTR [204, 7]UTFCSR3 
.FCTR [204. 7]UTFCIF3 
. FCTR [204, G JCSSTACK2 

.FCTR [204, 6 ] CSSORTNM- [ 204 , 7 lUTCHARGT- [ 204 , 7 1UTV2M0VE 


1 

2 

3 

4 

5 
G 

7 

8 
9 

10 

11 

12 

13 

14 

15 
1G 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 
4 1 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 


Figure 3-3. CS Program Overlay Descriptor Language File 
(CS •ODL) 
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3 . 2 PROFILE REPORT PROGRAM (PF) 

3.2.1 INTRODUCTION 

The Profile Report Program (PF) (or Generalized Response 
Accumulator Program) produces a cross-tabulation (or pro- 
file) report of the entries in various fields of a selected 
SEL data base file. The program supports the Component In- 
formation File (CIF) , the Change Report Form (CRF) file, the 
Component Summary Form (CSF) file, and the Run Analysis Form 
(RAF) file. 

3.2.2 PROGRAM STRUCTURE 
3 . 2 . 2 . 1 Files Accessed 

The PF program accesses two input files and one or more out- 
put files, depending on the file type selected. These files 
are described below, 

Input File Name Description 

[ 204 , 6] PFNL. XXX A sequential file containing the PF 

description file (Section 2.2.2), 
where XXX - file type (CIF, CRF, CSF, 
or RAF) 

[ 204 , 1] <PRJNAM>, XXX SEL data base file for the given 

project, where XXX = file type (CIF, 
CRF, CSF, or RAF) 

Output File Name Description 

<PRJNAM> . YNN The profile report file for the given 

project, where Y = report type (I, H, 
M, or A) and NN = breakdown variable 
number (Section 2.2.3) 

<PRJNAM>.NNY The plot file for the given project, 

where Y = report type (I, H, M, or A) 
and NN - breakdown variable number 
(Section 2.2.3) ; produced only for 
certain file types and breakdown vari- 
ables (Section 2.2.3) 

In these file names, <PRJNAM> is the name of the project 
selected by the user. 
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3 . 2 . 2 . 2 Baseline Diagram 

Figure 3-4 is the baseline diagram for the PF program. The 
PROFIL routine is the mein driver. It obtains the user's 
choices for project name, report type, and breakdown cat- 
egory; reads the selected file; accumulates responses; and 
writes the report. The driver loops through this process 
until a^ Z (control Z) is returned by the user in response 
to a prompt. 

3.2.3 SUBROUTINE/SUBSYSTEM DESCRIPTION 

The routines forming the PF program are grouped here by 
function. In each routine, the calling sequence variables 
are grouped according to input, input and output (if any) , 
and output and appear in the calling sequence in that 
order. In the following descriptions, each group of vari- 
ables begins a new line. The calling sequence variables for 
the major PF routines are described in Section 3. 2. 3. 6. 
Descriptions of the calling sequence variables for utility 
routines are not provided. In addition to the routines de- 
scribed in this section, the PF program also uses the fol- 
lowing system routines: DATE, ERRSET, ERRSNS, and TIME. 

3 . 2 . 3 . 1 Process Data and Accumulate Responses 

These six major routines read a given data base file and 
accumulate responses for the specified profile report. 

ROUTINE : GETDAT 

FUNCTION: Reads the desired file and accumulates all sta- 

tistics 

CALLING SEQUENCE: 

CALL GETDAT (BRKVAR, CATSIZ, DBFILE, FILTYP, IDBF, NCAT, 
RANGES, R INDEX, RNGCHK , VARNUM, 

K, KTOT, ERROR) 


3-26 


8818 



DINIT I I GETOPT I GETCOL I [ GETDAT I RPTDAT I WRTPLT 


a/stn 
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Figure 3-4. Baseline Diagram for the Profile Report Program (PF) 



































ROUTINE : LCIF 


FUNCTION: Reads one record from the CIF and converts all 

significant data to an interger value from 1 to N 

CALLING SEQUENCE: 

CALL LCIF ( ICIFF , RANGES, RINDEX, 

L, NULL, EOF, ERROR) 


ROUTINE: LCRF 

FUNCTION: Reads one record from the CRF file and converts 

all significant data to an integer value from 1 to N 

CALLING SEQUENCE: 

CALL LCRF ( ICRFF, RANGES, RINDEX, 

L, NULL, EOF, ERROR) 


ROUTINE : LCSF 

FUNCTION: Reads one record from the CSF file and converts 

all significant data to an integer value from 1 to N 

CALLING SEQUENCE: 

CALL LCSF ( ICSFF, RANGES, RINDEX, 

L, NULL, EOF, ERROR) 


ROUTINE : LRAF 

FUNCTION: Reads one record from the RAF file and converts 

all significant data to an integer value from 1 to N 

CALLING SEQUENCE: 

CALL LRAF (IRAFF, RANGES, RINDEX, 

L, NULL, EOF, ERROR) 
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ROUTINE: PROFIL 


FUNCTION: Main routine of the PF program, produces the pro 

file report for the project and file type specified 

CALLING SEQUENCE: None 

3 . 2 . 3 . 2 Write Output Report and Plot Files 

These five routines write the output report and plot files. 

ROUTINE: CENTTL 

FUNCTION: Centers the character titles 

CALLING SEQUENCE: 

CALL CENTTL (NAMES, 

SBTTLS ) 


ROUTINE : HEADER 

FUNCTION: Prints a one-line title for each report page that 

includes the date and project name 

CALLING SEQUENCE: 

CALL HEADER ( IRPTF, PRJNAM, RPTITL) 


ROUTINE : HSUMRY 

FUNCTION: Prints a six-line header summary with data from 

the Phase Dates (HDR) and Estimated Statistics (EST) files 

CALLING SEQUENCE: 

CALL HSUMRY (IRPTF, PRJNAM) 


ROUTINE : PRTDAT 

FUNCTION: Prints report data 

CALLING SEQUENCE: 

CALL PRTDAT (BRKVAR, CATNAM, CATSIZ, IRPTF, K, KTOT, 
NCAT, PRJNAM, RANGES,. RNGCHK , RPTITL, 
RPTNAM, STEPS, VARNUM) 
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ROUTINE : WRTPLT 


FUNCTION: Writes profile statistics to a temporary file in 

preparation for plotting 

CALLING SEQUENCE: 

CALL WRTPLT ( BRKVAR , CATNAM, CATSIZ, FILTYP, K, KTOT, 

MAKPLT, NCAT , PRJNAM, RPTITL , STEPS, VARNUM) 

3 . 2. 3 . 3 Obtain Data From Terminal or External Fil e 

These four routines obtain information from a user's re- 
sponse to a terminal prompt or from an external file. 

ROUTINE : GETCOL 

FUNCTION: Reads the PF description file to obtain descrip- 

tions of fields and categories for the selected profile 
report 

CALLING SEQUENCE: 

CALL GETCOL (BRKV , COLFIL, 

BRKVAR, CATNAM, CATSIZ, MAKPLT, NCAT, RANGES, 
RINDEX, RNGCHK , RPTITL, STEPS, VARNUM, ERROR) 


ROUTINE: GETFLD 

FUNCTION: Displays the given text on the terminal and 

prompts for a character string 

CALLING SEQUENCE: 

CALL GETFLD (TEXT, EXTFIL, FLDLEN , 

TERMNL , EOFTTY, ERROR 
FIELD) 
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- ROUTINE: GETOPT 


FUNCTION: Obtains the project name and user options from 

the terminal 

CALLING SEQUENCE: 

CALL GETOPT (TERMNL , 

BRKV, COLFIL, DBFILE, FILTYP , PRJNAM, RPTNAM, 
EOF, ERROR) 


ROUTINE : HELP 

FUNCTION: Prints help information to the terminal 

CALLING SEQUENCE: 

CALL HELP 

ROUTINE:: NAME 3 

FUNCTION: Concatenates the given strings to form a complete 

file name 

CALLING SEQUENCE: 

CALL NAME 3 (DISK, UIC, NAME, EXTENS , 

DSN) 

3 . 2 . 3 . 4 File Open and Read Routines 

These eight routines either open an indexed file or read 
records from an indexed file. 

ROUTINE: DO PEN 2 

FUNCTION: Opens an indexed file 

CALLING SEQUENCE: 

CALL DOPEN2 ( IFILE, FILNAM, 

FOUND, ERROR) 
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ROUTINE: RDCIF 


FUNCTION: Reads' one record from the GIF and converts ail- 

data to internal format 

CALLING SEQUENCE: 

CALL RDCIF (ICIFF, 

PROJNO , CNAME , I CODE, PANV, MODFUN, SYS FUN, 
ORIGIN, NEXEC, NLINES , NCOMNT, IETAl , IETA2 , 
NETA1 , NETA2 , NIOVAR, MCCABE, NFUNCT, NIO, 
NASGN , NCALL , NFMT, STATUS, EOF, ERROR) 


ROUTINE: RDCRF 

FUNCTION: Reads one record from the CRF file and converts 

the data to internal format 

CALLING SEQUENCE: 

CALL RDCRF ( ICRFF , 

FORMNO , PROJNO, PROGNO, FDATE , NCH, NEXAM, 
OVER1 , DATDET, DATBEG, EFFORT, CHTYPE , CHCOMP 
ERRTYP , ERRIN, DATERR, LGCERR, ACTVTY , ISOLTM 
PATCH, RELOLD, RELNO, RELDAT, CMTREA , CMTDES , 
CMTGEN, STATUS, EOF, ERROR) 


ROUTINE: RDCSF 

FUNCTION: Reads one record from the CSF file 

CALLING SEQUENCE: 

CALL RDCSF (ICSFF, 

FORMNO, PROJNO, PROGNO, PROGI, FDATE, FSTAGE , 
COMPCO , PRECIS, CMPLEX , SWTYPE, PASGN , PCNTL , 
POTHER, STATWO, STMT, BTSIZE, INDEP, RELSW, 
ADDTYP , NCALLD , XI, NCALNG , X2, NS HR, X3 , 
NDESC , X4, LANG1 , PLANG1 , LANG 2 , PLANG2 , DES, 
CONSTR, DESRUN, CODRUN, TSTRUN, DESTIM, 
CODTIM, TSTTIM, DESEFF, CODEFF, TSTEFF, 
DESDAT, CODDAT, TSTDAT, DESCR, CALLD , CALNG , 
SHR, AFFECT, OTH, NAMCON, CMTl, CMT2 , IS TAT, 
EOF, ERROR) 
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ROUTINE: RDEST 


FUNCTION: Reads one record from the EST file and converts 

all data to internal format 

CALLING SEQUENCE: 

CALL RDEST (IESTF, 

NAME, PRO J , NCOMP, MODDEL, MODNEW, MODMOD, 
NRUNS , NCHANG , PAGDOC, LINDEL, LINNEW, 
LINMOD, TOTE XT, NEWEXT, MODEXT, PROGHR, 
MGMTHR, OTHRHR , HR95, HR75, OTHCMP, STATUS, 
ACTIVE, PRJCAT, FOUND, ERROR) 


ROUTINE : RDHDRX 

FUNCTION: Reads the HDR file and returns the phase dates 

for a given project 

CALLING SEQUENCE: 

CALL RDHDRX ( IHDRF , PROJCT , 

DRANG1, DRANG 2, FOUND) 


ROUTINE: RDHDRl 

FUNCTION: Reads one record from the HDR file and converts 

all data to internal format 

CALLING SEQUENCE: 

CALL RDHDRl (IHDRF, PRJNAM, 

PROJ, DEVCMP, TARG, ALIEN, REQl, REQ2 , DES1, 
DES2, CODE1 , CODE 2 , SYS1, SYS2 , ACC1, ACC 2 , 
CLEAN1 , CLEAN 2, MAINT1, MAINT2, STATUS, 
FOUND, ERROR) 


ROUTINE : RDRAF 

FUNCTION: Reads one record from the RAF file 
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CALLING SEQUENCE: 

CALL RDRAF (IRAFF, 

FORMNO , SEQNO, PROJNO, PROGNO, RDATE , MACHIN, 
INTERA, PURPOS, NCOMP, COMPCO, FIRST, METOBJ, 
RESULT, COMENT, ISTAT, EOF, ERROR) 

3 . 2 . 3 . 5 Routines for String Movement, Comparison, or 
Conversion 


These eight routines deal with string movement, comparison, 
or conversion. 

ROUTINE : BLANK 

FUNCTION: Initializes an array to blanks 

CALLING SEQUENCE: 

CALL BLANK (ARRAY, NUM) 


ROUTINE: CHRINT 

FUNCTION: Converts the given string to integer in 1*2 format 

CALLING SEQUENCE: 

CALL CHRINT (CHARS, NCHAR, 

I2NUM, ERROR) 


ROUTINE : CNVRNG 

FUNCTION: Converts the given range to character format 

CALLING SEQUENCE: 

CALL CNVRNG ( IBRK, IRNG , RANGES, 

SUBTTL) 

ROUTINE: MATCHS (LOGICAL FUNCTION) 

FUNCTION: Determines whether two input strings are the same 

CALLING SEQUENCE: 

MATCHS ( ARRAY 1 , ARRAY 2 , NBYTES) 
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ROUTINE: MOVE 


FUNCTION: Moves a given number of bytes from one address to 

another 

CALLING SEQUENCE: 

CALL MOVE (A, B, LEN) 

ROUTINE: SQEEZ 

FUNCTION: Removes blanks from a character string 

CALLING SEQUENCE: 

CALL SQEEZ (IN, NSIZE, 

NONBL , OUT) 


ROUTINE : WHERE 

FUNCTION: Finds the location of the given character in the 

given string 

CALLING SEQUENCE: 

CALL WHERE (CHAR, STRING, LEN, 

LOC, FOUND) 

3 . 2 . 3 . 6 Variable Description 

The variables in the calling sequences of major PF routines 
are described below. 


Name 

Type 

Description 


BRKV 

1*2 

Item number of variable 

desired as 



breakdown variable 


BRKVAR 

1*2 

Number of categories in 

PF de- 


scription file for the breakdown 
variable 
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Name 


CATNAM (25,20) 

CATSIZ (20) 
COLFIL ( 27 ) 
DBFILE { 27) 

EOF 

EOFTTY 

ERROR 

EXTFIL 

FIELD (FLDLEN) 
FILTYP 


FLDLEN 

IBRK 

ICIFF 

ICRFF 

ICSFF 

IDBF 

I RAFF 
IRNG 

IRPTF 
K(9,8, 20) 

KTOT (9) 

I* ( 55) 


Type Description 

L*1 Array of field names for each 
field in PF description file 

1*2 Number of categories for each field 

L* 1 Name of PF description file 

L*1 Data base file name to be read 

L*1 End-of-f ile flag 

L*1 Flag for end of file on terminal 

L*1 Error flag 

1*2 FORTRAN unit number for external 

file to be read 

L*1 Field to be obtained 

L*1 Character indicating type of re- 
port desired: I = CIF, H = CRF , 

M = CSF, A « RAF 

1*2 Length of field 

1*2 Index of boundary of category 

range to convert (from category 
description record) 

1*2 FORTRAN unit number of the CIF 

1*2 FORTRAN unit number of the CRF file 

1*2 FORTRAN unit number of the CSF file 

1*2 Data base file unit number to be 

read 

1*2 FORTRAN unit number of the RAF file 

1*2 Index of category range to convert 

(row number of category on report) 

1*2 Profile report file unit number 

1*2 Data array containing all data for 

profile report except totals 

1*2 Array of totals for total column 

on profile report 

1*2 Integer representation of each 

type of data 
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Name 


MAKPLT (20) 

NAMES (12,8) 

NCAT 

NULL 

PR JNAM ( 8 ) 
RANGES (9, 55) 


RINDEX ( 55 ) 
RNGCHK ( 20 ) 

RPTITL ( 40 ) 
RPTNAM (27) 
SBTTLS (12,8) 
STEPS (12,8,20) 

SUBTTL (12) 
TERMNL 

TEXT (FLDLEN) 
VARNUM ( 20 ) 


Type 

Description 

L*1 

Array of switches indicating 
whether a plot file is to be 
produced 

L*1 

Titles 

1*2 

Number of fields in profile report 

L*1 

Flag indicating if this record is 
usable 

L* 1 

Project name 

1*2 

Range boundaries for all fields 
identified with asterisks in col- 
umn 5 of the PF description file 

1*2 

Array used for sorting capability 
(not currently implemented) 

L*1 

Array of flags for each field in- 
dicating whether the categories 
for the field are ranges of values 

L*1 

Report title 

L*1 

Report file name 

L*1 

Centered titles 

L*1 

Array of category names for each 
field 

L*1 

Array containing column titles 

L* 1 

Flag indicating whether response 
is to be read from the terminal or 
an external file 

L*1 

Prompt text string 

1*2 

Item numbers for each field 


3.2.4 TASK BUILD PROCEDURE 


3 . 2 . 4 . 1 Command Procedures 

The PF program can be generated from the source code by ex- 
ecuting the command procedure PFGEN.CMD under UIC [204,6]. 
This command procedure references three command files-- 
PFFPP.CMD, PFFOR.CMD, and PF.TKB--all under UIC [204,6]. 
Figure 3-5 is a listing of PFGEN.CMD, the command procedure 
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®PFGEN.CMD 


1 

2 
3 

; THIS COMMAND PROCEDURE PRECOMPILES, COMPILES. AND TASK BUILDS 4 

; THE PROFILE REPORT PROGRAM (PF) . 5 

; 6 

; PRECOMPILE ROUTINES WRITTEN IN STRUCTURED FORTRAN 7 

8 

^[204, 6 JPFFPP.CMD 9 

; 10 

; 1 1 

; ^PFFPP.CMD 12 

; 13 

; THIS COMMAND PROCEDURE PRECOMPILES ALL SOURCE CODES WRITTEN IN 14 

; STRUCTURED FORTRAN FOR THE PROFILE REPORT PROGRAM (PF). 15 

; 1 6 

; ROUTINES WITH PREFIX PF 17 

; 18 

; FPP SY : [ 204 , 6 JPFCENTTL 19 

; FPP SY : [ 204 , 6 ] PFCNVRNG 20 

; FPP SY : [ 204 , 6 ] PFGETCOL 21 

; FPP SY : [ 204 , 6 3 PFGETDAT 22 

: FPP SY • [2O4,6]PFGET0PT 23 

; FPP SY: [ 204 , 6 ]PFHELP 24 

•FPP SY : [204,6]PFLCIF 25 

; FPP SY: [ 204 , 6 ]PFLCRF 26 

; FPP SY : [204,6 jPFLCSF 27 

; FPP SY: [204,6 3PFLRAF 28 

; FPP SY: [204,6 3PFPR0FIL 29 

; FPP SY: [ 204 , 6 JPFPRTDAT 30 

; FPP SY: [ 204 , 6 3 PFWRTPLT 31 

: 32 

; ROUTINES WITH PREFIX UT 33 

; 34 

; FPP SY : [ 204 , 7 3 UTBLANK 35 

; FPP SY : [ 204 . 7 ]UTCHRINT 36 

; FPP SY: [ 204 , 7 3 UTD0PEN2 37 

; FPP SY: [204,7 JUTGETFLD 38 

; FPP SY: [204.7 JUTGETLEN 39 

: FPP SY : [ 204 , 7 ]UTHEADER 40 

; FPP SY: [204.7 JUTHSUMRY 41 

: FPP SY : [204, 7JUTMATCHS 42 

; FPP SY: [204,7 JUTMOVE 43 

: FPP SY : [ 204 , 7 3UTNAME3 44 

; FPP SY : [ 204 , 7 JUTRDCI F 45 

; FPP SY: [204,7 juTROCRF 46 

; FPP SY : [ 204 , 7 3UTRDCSF 47 

; FPP SY: [204.7 JUTRDEST 48 

; FPP SY : [ 204 , 7 ]UTRDHDRX 49 

; FPP SY: [204,7 JUTRDHDR1 50 

; FPP SY : [ 204 , 7 jUTRDRAF 5 1 

: FPP SY: [204.7 3UTSQEEZ 52 

; FPP SY : [ 204 , 7 3UTWHERE 53 

; 54 

; COMPILE FORTRAN ROUTINES 55 


Figure 3-5 . PF Task Generation Command Procedure 
(PFGEN.CMD) (1 Of 2) 
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*{204.G]PFF0R.CMD 57 

: 58 

: 3PFF0R.CMD 5g 

: SO 

: THIS COMMAND PROCEDURE COMPILES ALL FORTRAN ROUTINES FOR THE PROFILE 61 

; REPORT PROGRAM (PF). 62 

: 63 

; ROUTINES WITH PREFIX PF 6 4 

: 65 

; FOR/ F4P/0B JECT: [204,6 JPFCENTTL [ 204 . 6 ] PFCENTTL 66 

1FQR/F4P/0BJECT : [ 204 , 6 jPFCNVRNG [ 204 . 6 ]PFCNVRNG 67 

; FOR/ F4P/QB JECT : [ 204 , 6 JPFGETCOL [204„ 6 JPFGETCOL 68 

; F0R/F4P/0BUECT : [204 .6JPFGETDAT [ 204 , 6 JPFGETD AT 69 

; F0R/F4P/0BJECT : [ 204 , 6 ] PFGETOPT [ 204 , 6 ] PFGETOPT 70 

;F0R/F4P/0BdECT: [ 204 , 6 ] PFHELP [ 204 , 6 JPFHELP 71 

; F0R/F4P/0BJECT : [ 204 , 6 J PFLCIF [204.6JPFLCIF 72 

; F0R/F4P/0B JECT : [ 204 , 6 JPFLCRF [ 204 . 6 JPFLCRF 73 

: F0R/F4P/0BJECT : [ 204 ,6]PFLCSF [ 204 , 6 JPFLCSF 74 

; FOR/ F4P/0B JECT : [ 204 .GjPFLRAF [ 204 . 6 JPFLRAF 75 

1 F0R/F4P/0BJECT : [204 , 6 JPFPROF IL [204 , 6 JPFPROFIL 76 

; FOR/ F4P/0B JECT : [ 204 , 6 ] PFPRTDAT [ 204 . 6 JPFPRTDAT 77 

;F0R/F4P/0BJECT: [204 , 6 JPFWRTPLT [204 .6 JPFWRTPLT 78 

• 79 

; ROUTINES WITH PREFIX UT 80 

: 81 

;F0R/F4P/0BJECT : [ 204 , 7 JUTBLANK [ 204 . 7 JUTBLANK 82 

; F0R/F4P/0B JECT : [ 204 , 7 JUTCHRINT [ 204 , 7 ]UTCHRINT 83 

: F0R/F4P/0BJECT : [204 , 7 JUTD0PEN2 [204 . 7 ]UTD0PEN2 84 

: F0R/F4P/0B JECT : [ 204 . 7 juTGETFLD [ 204 , 7 jUTGETFLD 85 

: F0R/F4P/0BJECT : [ 204 . 7 JUTGETLEN [ 204 , 7 JUTGETLEN 36 

;F0R/F4P/0BJECT: [204.7JUTHEADER [ 204 , 7 JUTHEADER 87 

; F0R/F4P/CB JECT : [ 204 ,7 JUTHSUMRY [ 204 . 7 JUTHSUMRY 88 

; F0R/F4P/0B JECT : [ 204 , 7 ]UTMATCHS [ 204 . 7 JUTMATCHS 89 

; F0R/F4P/0B JECT : [ 204 , 7 ]UTMOVE [ 204 . 7 ]UTMOVE 90 

: F0R/F4P/0B JECT: [204,7 JUTNAME3 [204 , 7 JUTNAME3 91 

; FOR/ F4P/0B JECT : [ 204 , 7 JUTRDCIF [ 204 . 7 ]UTRDCI F o 2 

; F0R/F4P/0B JECT : [204.7 JUTRDCRF [ 204 , 7 [UTRDCRF 93 

; F0R/F4 P/OB JECT : [ 204 , 7 [UTROCSF [ 204 , 7 JUTRDCSF 04 

: FOR/ F 4 P/OB JECT : [ 204 , 7 JUTRDEST [204 . 7 JUTROEST 95 

; FOR/F 4 P/OBJECT : [ 204 . 7 JUTRDHDRX [204 . 7 [UTRDHDRX 05 

; F0R/F4P/0BJECT : [ 204 , 7 JUTRDHDR 1 [ 204 , 7 JUTRDHDR 1 97 

; F0R/F4P/0BJECT : [ 204 , 7 [UTRORAF [ 204 . 7 [UTRDRAF a 8 

; F0R/F4P/0BJECT : [204 , 7 JUTSOEEZ [ 204 . 7 JUTSOEEZ 99 

; F0R/F4P/CBJECT : [204 , 7 ]UTWHERE [204 . 7]UTWHERE 100 

: 101 

; GENERATE THE TASK IMAGE 102 

: 103 

TKB ®[ 204 , 6 ]PF . TKB 10 4 

: 105 

; ®PF . TKB 10S 

: 107 

; COMMAND PROCEDURE TO BUILD THE TASK IMAGE F4P THE PROFILE REPORT 108 

; PROGRAM (PF) 1C9 

: 1 10 

; [ 204 , 5 ] PF/FU- [ 204 , 6 JPF/MP 1 1 1 

;UNITS=20 112 

: MAXBUF = 250 113 

;// 114 


Figure 3-5, PF Task Generation Command Procedure 
(PFGEN.CMD) (2 of 2) 
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to precompile, compile, and task build the PF program. The 
PF program is generated by entering the following command: 

@ [204,6] PFGEN 

3 . 2 . 4 . 2 Overlay Structure 

The PF program is overlaid to reduce the memory space re- 
quirement. Figure 3-6 is a listing of the Overlay De- 
scriptor Language file, [204, 6] PF.ODL, needed to build the 
PF program task image. The system libraries RMSllM.ODL and 
RMS12X.ODL are needed for the overlay. In addition, the 
Record Management Service (RMS) Indexed Access Programs Li- 
brary (RMS I AC) is also needed in the overlay. The name of 
the library is UFRMSIAC.OLB under UIC -[204,7]. It contains 
FORTRAN routines used for accessing RMS indexed files. 
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1 

; ®PF.ODL 2 

• 3 

; THE OVERLAY DEFINITION FOR THE PROFILE REPORT PROGRAM (PF) 4 

: 5 

.ROOT $TREE 1 . OTSALL , RMSALL 6 

$TREE 1 : . FCTR $ROOT-RMSROT-OTSROT-* ( $OPT , $COL , $DAT . $PRT , $PLT 1 7 

$ROOT : .FCTR [ 204 , S ]PFPROF IL- [ 204 . 7 ]UTMDVE - [ 204 . 7 ]UTD0PEN2-$R00T3 8 

$R00T3: .FCTR [204 , 6 [PFGETOAT- [ 204 . 7 3UTSQEEZ - { 204 . 7 juTWHERE -$R 00 T 5 9 

5ROOT5 : .FCTR [ 204 . 7 JUFRMSI AC/LB 10 

: 11 

$OPT: .FCTR [ 204 . 6 JPFGETOPT- [ 204 ,7]UTNAME3 - [204 , 6 ]PFHELP-$0PT2 12 

$0PT2: .FCTR [ 204 . 7 ]UTGETFLO- [ 204 . 7 [UTCHR I NT 13 

: 14 

$COL: .FCTR [204 ,6]PFGETC0L-[204 . 6 [PFCNVRNG 15 

: is 

$DAT : .FCTR ( $CI F . $CRF , $CSF . $RAF ) 17 

$CIF: .FCTR [ 204 , 6 ]PF|_CI F - [ 204 . 7 jUTROC I F- [ 204 . 7 jUFRMS I AC/LB 13 

$CRF: .FCTR [ 204 , 6 ]PFLCRF -[ 204 , 7 JUTRDCRF- [204 , 7 ]UFRMSI AC/LB 19 

I C S F : .FCTR [ 204 . 6 ]PFLCSF -[204 , 7 JllTRDCSF- [204 . 7 JUFRMSI AC/LB 20 

$RAF: .FCTR [204 ,6]PFLRAF -[204 . 7 [UTRDRAF- [ 204 . 7 ]UFRMSI AC/LB 21 

: 22 

$PRT: .FCTR [ 204 . 6 JPFPRTDAT- [ 204 . 7 JUTHEADER- [204 , 7 ]UTHSUMRY-$0UT2 23 

$0UT2 : .FCTR [204 .7 [UTRDHORX- [ 204 . 7 [UTRDHDR 1- [ 204 , 7 JUTRDEST -$0UT3 24 

S0UT3 : .FCTR [ 204 . 6 ] PFCENTTL- [ 204 . 7 ]UFRMS I AC/LB 25 

i 26 

SPLT : .FCTR [204 , 6 [PFWRTPLT- [204 . 7 [UTNAME3 27 

: 28 

= 29 

®LB : [ 1 . 1 ] RMS 1 1M 30 

®LB : [ 1 . 1 ]RMS 12X 31 

. END 32 


Figure 3-6. PF Program Overlay Descriptor Language File 
(PF.ODL) 
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3.3 RESOURCE UTILIZATON REPORT PROGRAM (RU) 


3.3.1 INTRODUCTION 

The Resource Utilization Report Program (RU) produces a re 
port of manpower and computer resource data subdivided by 
phase for a given project. The resource data used are ob- 
tained from the Component Status Report (CSR) file and the 
Resource Summary Form (RSF) file for the given project. 

3.3.2 PROGRAM STRUCTURE 
3 . 3 . 2 . 1 Files Accessed 

The RU program accesses five input files and five output 
files as described below. 


Input File Name 


Description 


[ 2 0 4 , 6 ] RU . NL 


[204.1] EST . HDR 

[204.1] HEADER. HDR 

[204.1] <PRJNAM> . CSR 

[204.1] <PRJNAM>. RSF 


A sequential file containing the key 
input parameters (a user -defined RU 
input parameters file under the UIC 
may be provided instead) 

Estimated Statistics (EST) file 

Phase Dates (HDR) file 

CSR file for the given project 

RSF file for the given project 


Output File Name 


Description 


<PRJNAM> . RU 
<PRJNAM> . 1RU 

<PRJNAM> . 2RU 

<PRJNAM>. 3RU 


File containing the RU report for the 
given project 

First plot file for the given project, 
containing data from the RSF file 
(subdivided by phase) 

First plot file for the given project, 
containing data from the CSR file 
{subdivided by phase) 

Second plot file for the given project, 
containing data from the RSF file 
(subdivided by manpower category) 
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Output File Name 


Description 


<PRJNAM> . 4RU Second plot file for the given project, 

containing data from the CSR file 
(subdivided by manpower category) 

In these file names, <PRJNAM> is the name of the project 
selected by the user. The four plot output files are in- 
tended for use by the Pie Chart Plotting Program, which is 
not currently implemented. 

3 . 3 . 2 . 2 Baseline Diagram 

Figure 3-7 is the baseline diagram for the RU program. The 
RU routine is the main driver. It reads the RU input param- 
eters file, the EST file, the HDR file, the RSF file, and 
the CSR file and prints the resource utilization report. RU 
loops through the above process until a^ Z (control Z) is 
returned by the user in response to a prompt. 

3.3.3 SUBROUTINE/SUBSYSTEM DESCRIPTION 

The routines forming the RU program are grouped here by 
functions. In each routine, the calling sequence variables 
are grouped according to input, input and output (if any) , 
and output and appear in the calling sequence in that 
order. In the following descriptions, each group of the 
variables begins a new line. The calling sequence variables 
for the major RU routines are described in Section 3. 3. 3. 6. 
Descriptions of the calling sequence variables for utility 
routines are not provided. In addition to the routines de- 
scribed in this section, the RU program also uses the fol- 
lowing system routines: DATE, ERRSNS , and TIME. 

3 . 3. 3. 1 Process Data and Compute Statistics 

These seven major routines obtain data from a given CSR or 
RSF file and compute statistics for the RU report. 


3-43 


8818 


















































ROUTINE: FIGRUN 


FUNCTION: Computes all- data used in the second section of 

the body of the RU report (computer usage, source code size, 
and change data) 

CALLING SEQUENCE: 

CALL FIGRUN (XCOST, LNMULT , XMMM, XMWTMM, HR75, HR95, 

COMDEL, COMNEW, OLDFAC , XPMM, XPWTMM, RUNS, 
XSMM, XSWTMM, LINDEL, LINNEW, T95T75, NCHANG 

COSPER, EQU75 , E75PER, LP, LPM, LPMS , WTLP, 
WTLPM, WTLPMS, H75PER, H95PER, NCOMP, RUNPER 
SLINES, CHGPER) 


ROUTINE: FPHASE 

FUNCTION: Computes all necessary phase data 

CALLING SEQUENCE: 

CALL FPHASE (COSTHR, HRMON, MGHR , MGWT, NWEEKS, PROGHR, 
PRWT, SVHR , SVWT , 

MHR , MMM, MPCT, MWTHR , MWTMM, MWTPCT, MCOST, 
MPHSPC , PHR, PMM , PPCT, PWTHR, PWTMM, PWTPCT 
PCOST, PPHSPC , SHR, SMM, SPCT, SWTHR, SWTMM, 
SWTPCT, SCOST, SPHSPC , THR, TMM , TPCT, TWTHR 
TWTMM, TWTPCT, TCOST, TPHSPC, WEEKPC) 


ROUTINE : GETCSR 

FUNCTION: Obtains programmer hour totals by phase from the 

CSR file 

CALLING SEQUENCE: 

CALL GETCSR (CSRFIL, CSRNAM, DRANG1 , DRANG2 , 

CPRGHR) 


ROUTINE: GETRSF 

FUNCTION: Reads all of the RSF file and accumulates pro- 

grammer, management, and services hours for each phase 
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CALLING SEQUENCE: 


CALL GETRSF (DRANG1 , DRANG 2 , IRSFF, RSFFIL , 
MGHR, RSFPHR , SVHR, ERROR) 


ROUTINE: NEXTWK 

FUNCTION: Computes data one week after the given date and 

returns it in YYMMDD format 

CALLING SEQUENCE; 

CALL NEXTWK (DATE, 

D) 


ROUTINE : REPORT 

FUNCTION: Given the key input parameters and RSF or CSR 

data, computes and prints percentages and totals 

CALLING SEQUENCE: 

CALL REPORT ( IRPTF, PAGENO, PHRASE, COSTHR, HRMON , 

LNMULT , MGWT , OLDFAC , PRWT, SVWT, T95T75, 
DRANG1 , DRANG 2 , MGHR, HR75, HR95, NWEEKS, 
PHRANG, PROGHR , PROJCT, RUNS, SVHR, COMDEL , 
COMNEW, LINDEL, LINNEW, NCHANG , NDATWK , TURN) 


ROUTINE : RU 

FUNCTION: Main routine of the RU program, reads the RSF and 

CSR files and prints the RU report 

CALLING SEQUENCE: None 

3 . 3 . 3 . 2 Write the RU Report and Plot Files 

These seven routines write the RU output report and plot 
files. 

ROUTINE: HEADER 

FUNCTION: Prints a one-line title for each report page that 

includes the date, project name, and page number 
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CALLING SEQUENCE: 


CALL HEADER ( IRPTF , PROJCT, PAGENO) 


ROUTINE: PAGE1 

FUNCTION: Prints abbreviations and notes and key input pa- 

rameters on the first page of the RU report 

CALLING SEQUENCE: 

CALL PAGE1 (IRPTF, PAGENO, COSTHR, COSTiMM, CSTFIL, HRMON, 
HRYR , LNMULT, MGWT, NLFIL , OLDFAC , 'PRWT, 
PROJCT, RPTFIL, RSFFIL, SVWT, T95T75) 


ROUTINE : PRDATA 

FUNCTION: Prints Sections 1 and 2 of the body (pages 2 and 

3) of the RU report 

CALLING SEQUENCE: 

CALL PRDATA (IRPTF, PAGENO, PHRASE, PROJCT, DRANG1 , 

DRANG 2 , MGCST, MGRSF , NWEEKS , PHRANG, PRGCST , 
PRGRSF, MHR, MMM, MPCT, MWTHR, MWTMM, 

MWTPCT, MCOST , MPHSPC, PHR, PMM, PPCT, 

PWTHR, PWTMM , PWTPCT, PCOST, PPHSPC, SHR, 

SMM, SPCT , SWTHR, SWTMM, SWTPCT, SCOST, 

SPHSPC , THR, TMM, TPCT, TWTHR, TWTMM, TWTPCT, 
TCOST , TPHSPC , WEEKPC, COST, COSPER, EQU75 , 
E75PER, LNMULT, LP, LPM, LPMS, WTLP, WTLPM, 
WTLPMS, HR75 , H75PER, HR95, H95PER, NCOMP, 
RUNS, RUNPER, SLINES, NONCOM, COSPM, COSPMS, 
NCHANG , CHGPER) 


ROUTINE : PREXTR 

FUNCTION: Prints the third section of the body of the RU 

report 

CALLING SEQUENCE: 

CALL PREXTR (IRPTF, NONCOM, COSPM, COSPMS) 
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ROUTINE: PRPHAS 


FUNCTION: Prints all data that have been processed accord- 

ing to phase 

CALLING SEQUENCE: 

CALL PRPHAS (IRPTF, DRANG1 , DRANG2 , MGCST, MGRSF, 

NWEEKS , PHRANG, PRGCST, PRGRSF, MHR, MMM, 
MPCT r MWTHR, MWTMM, MWTPCT, MCOST, MPHSPC, 
PHR, PMM, PPCT, PWTHR , PWTMM , PWTPCT, PCOST, 
PPHSPC , SHR, SMM, SPCT, SWTHR, SWTMM, 

SWTPCT, SCOST, SPHSPC, THR# TMM, TPCT, 

TWTHR, TWTMM , TWTPCT, TCOST, TPHSPC, WEEKPC) 


ROUTINE : PRRUN 

FUNCTION: Prints various data related to source lines, com- 

puter usage, and changes 

CALLING SEQUENCE: 

CALL PRRUN (IRPTF, COST, COSPER, EQU75 , E75PER, LNMULT, 
LP, LPM, LPMS, WTLP, WTLPM, WTLPMS , HR75, 
H75PER, HR95 , H95PER, NCOMP, RUNS, RUNPER, 
SLINES, NCHANG, CHGPER) 


ROUTINE : WRTPLT 

FUNCTION: Writes data to two intermediate files in prepara- 

tion for pie chart plotting 

CALLING SEQUENCE: 

CALL WRTPLT (MGMTHR, PRJNAM, PROGHR , SERVHR, TURN) 

3 . 3 . 3 . 3 Obtain Data From Terminal or External File 

These four routines obtain information from a user's re- 
sponse to a terminal prompt or from an external file. 

ROUTINE : GETFLD 

FUNCTION: Displays the given text on the terminal and 

prompts for a character string 
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CALLING SEQUENCE: 

CALL GETFLD (TEXT, EXTFIL, FLDLEN , 

TERMNL, EOFTTY, ERROR 
FIELD) 

ROUTINE : MAKNAM 

FUNCTION: Concatenates the given strings to form a complete 

file name 

CALLING SEQUENCE: 

CALL MAKNAM (DISK, UIC, NAME, EXTENS, 

DSN) 


ROUTINE: NAME 3 

FUNCTION: Concatenates the given strings to form a complete 

file name 

CALLING SEQUENCE: 

CALL NAME 3 (DISK, UIC, NAME, EXTENS, 

DSN) 


ROUTINE: READNL 

FUNCTION: Reads the RU input parameters file 

CALLING SEQUENCE: 

CALL READNL ( INLF, 

TERMNL , 

COSTHR , COSTMM, CSTFIL, HRMON , HRYR, LNMULT , 
MGWI, NLFIL, OLDFAC , PROJ, PRWT, RPTFIL, 
RSFFIL , SWT, T95T75, EOF, ERROR) 

3 . 3 . 3 . 4 File Open and Read Routines 

These seven routines either open an indexed file or read 
records from an indexed file. 
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ROUTINE: DDOPNR 


FUNCTION: Opens an indexed file 

CALLING SEQUENCE: 

CALL DDOPNR (I FILE, FILNAM, 
FOUND, ERROR) 


ROUTINE: DOPEN 2 

FUNCTION: Opens an indexed file 

CALLING SEQUENCE: 

CALL DOPEN 2 ( IFILE , FILNAM, 
FOUND, ERROR) 


ROUTINE: RDCSR 

FUNCTION: Reads one record from the CSR file 

CALLING SEQUENCE: 

CALL RDCSR (CSRFIL, 

FORMNO, SEQNO, PROJNO, PROGNO, FDATE , COMPCO, 
TIMES, OTHNAM, OTHOUR, ISTAT, PHASE, EOF, 
ERROR) 


ROUTINE: RDEST 

FUNCTION: Reads one record from the EST file and converts 

all data to internal format 

CALLING SEQUENCE: 

CALL RDEST ( IESTF , NAME, 

PROJ , NCOMP, MODDEL, MODNEW, MODMOD, NRUNS , 
NCHANG , PAGDOC, LINDEL, LINNEW, LINMOD, 
TOTEXT, NEWEXT, MODEXT, PROGHR , MGMTHR, 
OTHRHR , HR95 , HR75, OTHCMP, STATUS, ACTIVE, 
PRJCAT , FOUND, ERROR) 
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ROUTINE: RDHDRX 


FUNCTION: Reads the HDR file and returns the phase dates 

for a given project 

CALLING SEQUENCE: 

CALL RDHDRX (IHDRF, PROJCT, 

DRANG1, DRANG 2 , FOUND) 


ROUTINE: RDHDRl 

FUNCTION: Reads one record from the HDR file and converts 

all data to internal format 

CALLING SEQUENCE: 

CALL RDHDRl (IHDRF, PRJNAM, 

PROJ , DEVCMP, TARG, ALIEN, REQ1 , REQ2 , DES1, 
DES2 , CODE1, CODE 2, SYSl, SYS 2, ACCl, ACC 2, 
CLEAN1 , CLEAN 2 , MAINT1, MAINT2, STATUS, 

FOUND, ERROR) 

ROUTINE: RDRSF 

FUNCTION: Reads one record on the RSF file and returns all 

data on that record plus an array of week dates for each 
resource entry on the record 

CALLING SEQUENCE: 

CALL RDRSF (RSFFIL, 

FORMNO, SEQNO, PROJNO, RESCOD, RES ID, FDATE, 
PCMGMT , WKDATE , NRUNS, TIMES, STATUS, PHASE, 
LASTWK, EOF, ERROR) 

3 . 3 . 3 . 5 Routines for String Movement or Comparison 

These eight routines deal with string movement or comparison. 

ROUTINE: MATCHS (LOGICAL FUNCTION) 

FUNCTION: Determines whether the two input strings are the 

same 
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CALLING SEQUENCE* 

MATCHS ( ARRAYl , ARRAY 2 , NBYTES) 

ROUTINE: MATCH 4 (LOGICAL FUNCTION) 

FUNCTION: Determines whether a given number is in a given 

array 

CALLING SEQUENCE: 

MATCH 4 (N, I ARRAY, NARRAY) 

ROUTINE: MOVE 

FUNCTION: Moves a given number of bytes from one address to 

another 

CALLING SEQUENCE: 

CALL MOVE (A, B, LEN) 

ROUTINE: PHSCHK 

FUNCTION: Determines if the given date is within the given 

date range 

CALLING SEQUENCE: 

CALL PHSCHK ( FDATE , DRANG1 , DRANG 2 , 

PHNUM, INPHAS) 


ROUTINE: SQEEZ 

FUNCTION: Removes blanks from a character string 

CALLING SEQUENCE: 

CALL SQEEZ (IN, NSIZE, 

NONBL , OUT) 
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• ROUTINE : WHERE 


FUNCTION: Finds the location of the given character in the 

given string 

CALLING SEQUENCE: 

CALL WHERE (CHAR, STRING, LEN, 

LOC, FOUND) 

3 . 3 . 3 . 6 Variable Description 

The variables in the calling sequences of major RU routines 
are described below. 


Name 

Type 

Description 

CHGPER ( 3 ) 

R*4 

Number of changes per 1000 lines 
per type (new, delivered, adjusted) 

COMDEL 

1*2 

Number of components delivered 

COMNEW 

1*2 

Number of new components 

COSPER (3) 

R*4 

Cost per type (new, delivered, 
adjusted) 

COSPM 

R*4 

Cost per person-month using pro- 
grammer and management time only 

COSPMS 

R*4 

Cost per person-month using pro- 
grammer, management, and services 
time 

COST 

R*4 

Total cost based on weighted hours 

COSTHR 

R*4 

Cost per hour 

COSTMM 

R*4 

Cost per person-month 

CPRGHR ( 6 ) 

R*4 

Total hours spent in each phase 
from CSR file record 

CSRFIL 

1*2 

FORTRAN unit number for CSR file 

CSRNAM (25) 

L*1 

CSR file name 

CSTFIL ( 25 ) 

L*1 

CSR file name 

DRANG1 (3,6) 

1*2 

Phase start dates 

DRANG2 (3,6) 

1*2 

Phase end dates 

EOF 

L*1 

Terminal EOF flag 

EQU7 5 

R*4 

IBM S/360-95 plus S/360-75 com- 


puter time in equivalent S/360-75 
time 
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Name 


Desc ri ption 


ERROR 
E75PER (3) 

HRMON 

HRYR 

HR75 

HR95 

H75PER (3 ) 

H95PER ( 3 ) 

INLF 

IRPTF 

IRSFF 

LINDEL 

LINNEW 

LNMULT 

LP(3) 

LPM (3) 

LPMS (3) 

MCOST ( 6 ) 
MGCST ( 6) 

MGHR (6) 
MGMTHR ( 6 ) 
MGRSF (6) 
MGWT 


Type 

L*1 Error flag 

R*4 Equivalent S/360-75 computer time 

per type (new, delivered, adjusted) 

R* 4 Hours per month 

R*4 Hours per year 

R*4 S/360-75 computer time in hours 

R*4 S/360-95 computer time in hours 

R* 4 S/360-75 computer time per type 

(new, delivered, adjusted) 

R*4 S/360-95 computer time per type 

(new, delivered, adjusted) 

1*2 FORTRAN unit number for RU input 
parameters file 

1*2 FORTRAN unit number for RU output 
report file 

1*2 FORTRAN unit number for RSF file 

1*2 Number of delivered source lines 
(in thousands) 

1*2 Number of new source lines (in 
thousands) 

1*2 Source lines multiple used in com- 
puting statistics 

1*2 Source lines produced per person- 
month using programmer time only 

1*2 Source lines produced per person- 
month using programmer and man- 
agement time 

1*2 Source lines produced per person- 
month using programmer, man- 
agement, and services time 

R*4 Weighted management cost 

1*2 Number of CSR forms with manage- 

ment data 

R*4 Management hours from the RSFs 

1*2 Management hours by phase 

1*2 Number of RSFs with management data 

R*4 Management weight 
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Name 


Description 


MHR ( 6 ) 

MMM ( 6 ) 

MPCT (6) 

MPHSPC (6) 

MWTHR ( 6 ) 
MWTMM ( 6 ) 

MWTPCT (6 ) 

NCHANG 
NCOMP ( 4 ) 

NDATWK (6) 

NLFIL ( 25) 
NONCOM 
NWEEKS (6) 
OLDFAC 

PAGENO 
PCOST (6) 

PHR ( 6 ) 
PHRANG (6,2) 
PHRASE (50) 
PMM (6) 

PPCT (6) 

PPHSPC (6) 

PRGCST(6) 

PRGRSF ( 6 ) 


Tyjpe 

1*2 Management hours by phase 

R*4 Management hours in person-months 

by phase 

1*2 Percent of management hours in 

each phase 

1*2 Percent of weighted management 

cost for each phase 

1*2 Weighted management hours by phase 

R* 4 Weighted management hours in 

person-months by phase 

1*2 Percent of weighted management 

hours of a phase 

1*2 Number of changes 

1*2 Number of components by type (new, 

delivered, adjusted, old) 

1*2 Number of weeks with data in the 
phase 

L*1 RU input parameters file name 

1*2 Source lines excluding comments 

1*2 Number of weeks in phase 

R*4 Factor used to compute adjusted 

lines of code from old and new 
figures 

1*2 Page number on report 

R*4 Weighted programmer cost by phase 

1*2 Programmer hours by phase 

1*2 Number range of phases 

L*1 Title of RU report 

R*4 Programmer hours in person-months 

by phase 

1*2 Percent of programmer hours in 

each phase 

1*2 Percent of weighted programmer 

cost for each phase 

1*2 Number of CSR forms with program- 
mer data 

1*2 Number of RSFs with programmer data 
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Name 


Description 


PR JNAM ( 8 ) 
PROGHR (6) 
PRO J ( 8 ) 
PROJCT (8) 
PRWT 
PWTHR ( 6 ) 
PWTMM ( 6 ) 

PWTPCT ( 6 ) 

RPTFIL ( 25 ) 
RSFFIL ( 25) 
RSFPHR ( 6 ) 
RUNPER ( 3) 

RUNS 
SCOST (6) 

SERVHR ( 6 ) 
SHR ( 6) 
SLINES ( 4) 

SMM ( 6 ) 

SPOT (6) 

SPHSPC (6) 

SVHR (6) 
SVWT 
SWTHR (6) 
SWTMM ( 6 ) 

SWTPCT ( 6 ) 

TCOST ( 6 ) 


Type 

L*1 Project name 

1*2 Programmer hours by phase 

L*1 Project name 

L*1 Project name from RSF file 

R*4 Programmer weight 

1*2 Weighted programmer hours by phase 

R*4 Weighted programmer hours in 

person-months by phase 

1*2 Percent of weighted programmer 

hours of a phase 

L*1 RU report file name 

L*1 RSF file name 

R*4 Programmer hours for each phase 

R*4 Number of runs per type (new, de- 
livered, adjusted) 

1*2 Total number of runs 

R*4 Weighted services cost for each 

phase 

1*2 Services hours by phase 

1*2 Services hours by phase 

1*2 Number of source lines (in thou- 
sands) (new, delivered, adjusted, 
old) 

R*4 Services hours in person-months by 
phase 

1*2 Percent of services hours in each 
phase 

1*2 Percent of weighted services cost 

for each phase 

R*4 Services hours for each phase 

R*4 Services weight 

1*2 Weighted services hours by phase 

R* 4 Weighted services hours in 

person-months by phase 

1*2 Percent of weighted services hours 

for each phase 

R*4 Weighted total cost for each phase 
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Name 


TERMNL 

THR ( 6 ) 

TMM ( 6 ) 

TPCT ( 6) 

TPHSPC (6) 

TURN 


TWTHR (6) 
TWTMM ( 6 )' 

TWTPCT ( 6 ) 

T95T75 

WEEKPC (6) 
WTLP (3) 

WTLPM (3) 

WTLPMS (3) 

XCOST 

XMMM 

XMWTMM 

XPMM 

XPWTMM 

XSMM 

XSWTMM 


Type Description 

L*1 Flag indicating whether terminal 

or external file is to be read 

1*2 Total hours by phase 

R*4 Total hours in person-months by 

phase 

1*2 Percent of total hours for each 
phase 

1*2 Percent of weighted total cost for 
each phase 

1*2 Flag indicating whether the pro- 

grammer data are from the CSR or 
the RSF file 
= 1, from RSF file 

= 2, from CSR file 

1*2 Weighted total hours by phase 

R*4 Weighted total hours in person- 

months by phase 

1*2 Percent of weighted total hours 
for each phase 

R*4 Factor used to convert S/360-95 
computer time to S/360-75 time 

1*2 Percent of weeks for each phase 

1*2 Weighted source lines produced per 
person-month using programmer time 
only 

1*2 Weighted source lines produced per 
person-month using programmer and 
management time 

1*2 Weighted source lines produced per 
person-month using programmer, 
management, and services time 

R*4 Total cost based on weighted hours 

R*4 Total management hours 

R*4 Total weighted management hours 

R*4 Total programmer hours 

R*4 Total weighted programmer hours 

R*4 Total services hours 

R*4 Total weighted services hours 
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3.3.4 TASK BUILD PROCEDURE 


3 . 3 . 4 . 1 Command Procedures 

The RU program can be generated from the source code by ex- 
ecuting the command procedure RUGEN.CMD under UIC [204,6] . 
This command procedure references three command files — 
RUFPP.CMD, RUFOR.CMD, and RU.TKB--all under UIC [204,6] . 
Figure 3-8 is a listing of RUGEN.CMD, the command procedure 
to precompile, compile, and task build the RU program. The 
RU program is generated by entering the following command: 

@ [204,6] RUGEN 

3 . 3 . 4 . 2 Overlay Structure 

The RU program is overlaid to reduce the memory space re- 
quirement. Figure 3-9 is a listing of the Overlay De- 
scriptor Language file, [ 204 , 6] RU.ODL, needed to build the 
RU program task image. The System libraries RMS11M.ODL and 
RMS12X.ODL are needed for the overlay. In addition, the RMS 
Indexed Access Program Library (RMS I AC) is also needed in 
the overlay. The name of the library is [204, 7] UFRMSIAC.OLB 
It contains FORTRAN routines necessary for accessing RMS 
indexed files. 
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'SRUGEN.CMD 


1 
2 
3 

COMMAND PROCDURS TO TASK BUILD THE RESOURCE UTILIZATION ( RU ) REPORT 4 

; PROGRAM FROM SOURCE (4/19/82 BY P. LO ) 5 

: 6 

; PRECOMPILE ROUTINES WRITTEN IN STRUCTURED FORTRAN 7 

; 8 

£ [ 204 , 6 ] RUFPP . CMD 9 

• 10 

; 1tRUFPP.CMD 11 

; '12 
; COMMAND PROCEDURE TO PRECOMPILE ROUTINES WRITTEN IN STRUCTURED 13 

; FORTRAN FOR THE RESOURCE UTILIZATION ( RU ) PROGRAM 4/15/82 14 

: 15 

; ROUTINES WITH PREFIX RU 16 

; 17 

; FPP SY : [ 204 , 6 ] RUF I GRUN 18 

; FPP SY: [ 204 , 6 ] RUFPHASE 19 

; FPP SY : [204 ,6]RUGETCSR 20 

; FPP SY : [204,6]RUGETRSF 21 

; FPP SY : [ 204 , 6 ] RUHE ADER 22 

; FPP SY : [204,6 ]RUMATCH4 23 

: FPP SY: [ 204 , 6 ] RUPAGE 1 24 

; FPP SY : [204,6 jRUPRDATA 25 

; FPP SY : [204 ,6]RUPREXTR 26 

; FPP SY : [ 204 , 6 3 RUPRPHAS 27 

; FPP SY : [ 204 , 6 ] RUPRRUN 28 

: FPP SY : [ 204 , 6 ] RUREADNL 29 

; FPP SY: [ 204 , 6 ] RUREPORT 30 

; FPP SY : [204,6]RURU 31 

; FPP SY : [ 204 , 6 ] RUWRTPLT 32 

; 33 

; ROUTINES WITH PREFIX UT 34 

• 35 

; FPP SY: [204,7 1UTDD0PNR 35 

; FPP SY: [ 204 , 7 ] UTD0PEN2 37 

; FPP SY: [204,7]UTGETFLD 33 

; FPP SY: [ 204 , 7 JUTMAKNAM 39 

; FPP SY : [204, 7JUTMATCHS 40 

; FPP SY: [ 204 , 7 ] UTMOVE 41 

; FPP SY : [ 204 , 7 ] UTNAME3 42 

; FPP SY : [204,7 1UTNEXTWK 43 

; FPP SY : [204,7 JUTPHSCHK 44 

; FPP SY : [ 204 , 7 ]UTRDCSR 45 

; FPP SY: [ 204 . 7 ] UTRDEST 46 

; FPP SY: [204,7 1UTRDHDRX 47 

; FPP SY : [204,7 3UTRDHDR1 48 

; FPP S Y : [ 204 , 7 ] UTRDRSF 49 

; FPP SY : [ 204 , 7 ]UTSOEEZ 50 

•FPP SY: [204,7 3UTWHERE 51 

; 52 

; COMPILE FORTRAN SOURCE 53 

; 54 

P [ 204 , 5 ] RUFOR . CMD 55 


Figure 3-8. RU Task Generation Command Procedure 
(RUGEN.CMD) (1 of 2) 
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'SRUFGR.CMD 


; COMMAND PROCEDURE TO COMPILE FORTRAN ROUTINES FOR THE RESOURCE 
; UTILIZATION (RU) REPORT PROGRAM (4/16/82 BY P. LO ) 

; ROUTINES WITH PREFIX RU 

; FOR /F 4 P /OB JECT : [ 204 , 6 J RUFIGRUN [ 204 , 6 ] RUF IGRUN 
; F0R/F4P/0B JECT : [ 204 , 6 j RUF PHASE [ 204 . 6 ] RUFPHASE 
; F0R/F4P/0B JECT : { 204 . 6 3 RUGETCSR [ 204 , 6 JRUGETCSR 
: F0R/F4P/0BJECT : [ 204 , 6 ] RUGETRSF [ 204 , 6 ] RUGETRSF 
; F0R/F4P/0B JECT : [204 ,6 ] RUHEADER [ 204 , 6 ] RUHE ADER 
; F0R/F4P/0B JECT : [ 204 , 6 JRUMATCH4 [ 204 . 6 j RUMATCH4 
; F0R/F4P/QB JECT : [ 204 , 6 ]RUPAGE 1 [ 204 , 6 ] RUP AGE 1 

; FCR/F4P/0B JECT: [204,6 ]RUPRDATA [ 204 . 6 ] RUPRDATA 
: FOR/FJP/OB JECT : [ 204 , 6 ] RUPREXTR [ 204 , 6 jRUPREXTR 
; F0R/F4P/0B JECT : [ 204 , 6 ] RUPRPHAS [ 204 , 6 J RUPRPHAS 
; F0R/F4P/0B JECT : [204 , 6 ] RUPRRUN [ 204 , 6 jRUPRRUN 
; F0R/F4P/0B JECT : [ 204 , 6 } RUREADNL [204 , 6 ] RUREADNL 
; FOR/ F 4 P/OB JECT : [ 204 , 6 ] RUREPORT [ 204 , 6 j RUREPORT 
; F0R/F4P/0B JECT : [ 204,6 J RURU [204,6 ] RURU 

; F0R/F4P/0B JECT : [ 204 , 6 ] RUWRTPLT [ 204 , 6 JRUWRTPLT 

; ROUTINES WITH PREFIX UT 

; F0R/F4P/06 JECT : [ 204 , 7 ] UTDDOPNR [ 204 , 7 ] UTDDOPNR 
; F0R/F4P/0B JECT : [ 204 . 7 ]UTD0PEN2 [ 204 , 7 JUTD0PEN2 
; F0R/F4P/0B JECT : [204 , 7 ]UTGETFLD [ 204 , 7 ]UTGETFLD 
; F0R/F4P/0B JECT : [ 204 , 7 juTMAKNAM [ 204 , 7 ]UTMAKNAM 
; F0R/F4P/0B JECT : [ 204 ,7 ]UTMATCHS [ 204 , 7 jUTMATCHS 
; F0R/F4P/0B JECT : [ 204 , 7 ]UTMOVE [ 204 , 7 jUTMOVE 

; F0R/F4P/0B JECT : [ 204 , 7 ]UTNAME3 [ 204 . 7 JUTNAME 3 
; F0R/F4P/0B JECT : [ 204 , 7 JUTNEXTWK [ 204 . 7 juTNEXTWK 
: F0R/F4P/0B JECT : [ 204 , 7 ] UTPHSCHK [ 204 , 7 JUTPHSCHK 
; F0R/F4P/0B JECT : [ 204 . 7 JUTRDCSR [ 204 , 7 ]UTRDCSR 
; F0R/F4P/0B JECT : [ 204 , 7 jUTRDEST [204 , 7 JUTRDEST 
; F0R/F4P/0S JECT : 1204 , 7 ]UTRDHDRX [204 , 7 ]UTRDHDRX 
; F0R/F4P/0B JECT : [ 204 , 7 JUTRDHDR 1 [ 204 , 7 JUTRDHDR 1 
I F0R/F4P/0B JECT : [ 204 ,7 JUTRDRSF [204 , 7 juTRDRSF 
; F0R/F4P/0B JECT: [204,7 1UTS0EEZ [204 , 7 jUTSQEEZ 
; F0R/F4P/0B JECT : [ 204 , 7 JUTWHERE [ 204 . 7 ]’JT WHERE 

; GENERATE THE TASK IMAGE 

TKB ^[204,6 IRU.TKB 

; 'SRU . TKB 

; COMMAND PROCEDURE TO TASK BUILD THE RU PROGRAM 

; I 204 , 5 ] RU/FU= [ 204,6] RU/MP 
; UNITS -20 
; ASG=SY : 6 
;// 
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Figure 3-8. RU Task Generation Command Procedure 
(RUGEN.CMD) (2 of 2) 
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: 1 

; SRU.ODL 2 

; 3 

• RESOURCE UTILIZATION REPORT PROGRAM OVERLAY 4/15/82 4 

: 5 

.ROOT STREET, OTSALL . RMSALL 6 

STREE1: . FCTR SROOT-RMSROT-OTSROT-” ( SLVL 1 ) 7 

SROCT: .FCTR [ 204 . 6 3 RURU- [204 , S ] RUHEADER- [ 204 , 7 ]UTMOVE-$ROOT 1 8 

SR00T1: .FCTR [ 204 . 7 ]UTRDEST- [ 204 , 7 JUTSOEEZ- [ 204 . 7 ]UTMATCHS-$R00T2 9 

SR00T2: .FCTR [ 204 , 7 ]UTRDHDRX- [ 204 , 7 ]UTRDHDR 1 - [ 204 , 7 ]UTPHSCHK-$R00T4 10 

SR00T4 : .FCTR [ 204 , 7 [UTODOPNR- [ 204 . 7 ]UTD0PEN2- [ 204 , 7 ]UFRMSI AC/LB 11 

; 12 

SLVL 1 : .FCTR SRDNL , SRSF , SCSR . [ 204 , 6 ]RUPAGE 1 , SLVL2 13 

SLVL2 : .FCTR [ 204 . 6 JRUREPORT- [ 204 . 6 ] RUWRTPLT- [204 , 7 ]UTNAME3- ( SLVL3 ) 14 

SLVL3 : .FCTR [ 204 . 6 [RUFPHASE . [ 204 . 6 ] RUFIGRUN, [ 204 . 6 ]RUPRDATA- ( SLVL4 ) 15 

SLVL4: .FCTR [ 204 , 6 1RUPRPHAS . [ 204 , 6 JRUPRRUN. [ 204 .6JRUPREXTR 1G 

I 17 

SRDNL: .FCTR [204 . 6 ] RUREADNL- [ 204 . 7 JUTGETFLD- [204 . 7 JUTMAKNAM 18 

! 19 

SCSR: .FCTR [ 204 , 6 ] RUGETCSR- [ 204, 7 [UTRDCSR 20 

: 21 

SRSF: .FCTR [ 204 , 6 ] RUGETRSF- [ 204 , 7 [UTRDRSF- [ 204 , 7 ]UTNEXTWK-$RSF2 22 

SRSF 2 : .FCTR [ 204 , G ] RUMATCH4 23 

: 24 

; 25 

#LB: [1 . llRMSIlM 26 

«LB : [ 1 . 1 ]RMS12X 27 

i 28 

. END 29 

Figure 3-9. RU Program Overlay Descriptor Language File 
(RU.ODL) 
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3.4 WEEKL Y HOUR AND FORM COUNT PROGRAM (WK) 


3.4.1 INTRODUCTION 

The Weekly Hour and Form Count Report Program (WK) produces 
reports of hour or form counts from a desired SEL data base 
file for a given project. There are currently 14 different 
WK reports. Each report contains counts of records, forms, 
or other data given by programmer by week (Section 2.4). 

3.4.2 PROGRAM STRUCTURE 
3. 4. 2.1 Files Accessed 


Each of the 14 reports currently produced by the WK program 
accesses four input files and three output files. All pos- 
sible files are listed below. 


Input File Name 

Description 

[204,1] ENCODE. HDR 

Encoding Dictionary (ENC) file 
(accessed by all report types) 

[204,1] EST. HDR 

Estimated Statistics (EST) file 
(accessed by all report types) 

[204,1] HEADER. HDR 

Phase Dates (HDR) file (accessed by 
all report types) 

[204,1] <PRJNAM> . ACC 

Accounting Information (ACC) file for 
the given project (accessed by report 
types XW1, XW2, and XW3 ) 

[204,1] <PRJNAM> . CRF 

Change Report Form (CRF) file for 
the given project (accessed by report 
type HW) 

[204,1] <PRJNAM> . CSF 

Component Summary Form (CSF) file 
for the given project (accessed by 
report type MW) 

[204,1] <PRJNAM> . CSR 

Component Status Report (CSR) file 
for the given project (accessed by 
report types TH and TW) 

[204,1] <PRJNAM> . RAF 

Run Analysis Form (RAF) file for 
the given project (accessed by report 
types AWl and AW2 ) 

[204,1] <PRJNAM> . RSF 

Resource Summary Form (RSF) file 
for the given project (accessed by 
report types RHl, RH2, RH3 , RP, and 


RR) 
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Output File Name 


Description 


<PRJNAM> . xxx Report file for the given project, 

where xxx = report type (AWl, AW2 , 

HW, MW, RHl , RH2 , RH3 , RP, RR, TH, 

TW, XW1, XW2, or XW3) 

<PRJNAM> . lxxx Plot file for the given project for 

pie chart plotting (not implemented) , 
where xxx * report type 

<PRJNAM> . 2xxx Plot file for the given project for 

graphing (Secton 3.7), where xxx = 
report type 

In these files names, <PRJNAM> is the name of the proj- 
ect selected by the user. 

3.4. 2. 2 Baseline Diagram 

Figure 3-10 is the baseline diagram for the WK program. The 
WKDMP routine is the main driver. It displays the help in- 
formation, obtains the project name and report type, reads 
the desired file for a given project, reads the HDR and EST 
files, and produces the report by resource or programmer by 
week with subtotals given by phase. WKDMP loops through the 
above process until a ^ Z (control Z) is returned by the user 
in response to a prompt. 

3.4.3 SUBROUTINE/SUBSYSTEM DESCRIPTION 

The routines forming the WK program are grouped here by 
function. In each routine, the calling sequence variables 
are grouped according to input, input and output (if any) , 
and output and appear in the calling sequence in that 
order. In the following descriptions, each group of vari- 
ables begins a new line. The calling sequence variables for 
the major WK routines are described in Section 3. 4. 3. 7. 
Descriptions of the calling sequence variables for utility 
routines are not provided. In addition to the routines de- 
scribed in this section, the WK program also uses the fol- 
lowing system routines: DATE, ERRSET, ERRSNS, and TIME. 
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Figure 3-10. Baseline Diagram for the Weekly Hour and Form Count 
Report Program (WK) (1 of 3) 
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Figure 3-10. Baseline Diagram for the Weekly Hour and Form Count 
Report Program (WK) (2 of 3) 
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3. 4. 3.1 Process Data and Compute Statistics 


These twelve major routines obtain data from the given SEL 
data base file and compute statistics for the WK report. 

ROUTINE: ACCHR7 

FUNCTION: Reads one ACC file record and returns the date of 

record, computer code, and IBM S/360-75 time 

CALLING SEQUENCE: 

CALL ACCHR7 ( IDBF , 

DATE, KOUNT, RESID, NULL, EOF, ERROR) 


ROUTINE : ACCHR9 

FUNCTION: Reads one ACC file record and returns the date of 

record, computer code, and IBM S/360-95 time 

CALLING SEQUENCE: 

CALL ACCHR9 (IDBF, 

DATE, KOUNT, RESID, NULL, EOF, ERROR) 


ROUTINE : ACCRUN 

FUNCTION: Reads one record from the ACC file and returns 

the date of record, computer code, and run count 

CALLING SEQUENCE: 

CALL ACCRUN (IDBF, 

DATE, KOUNT, RESID, NULL, EOF, ERROR) 


ROUTINE : CRFCNT 

FUNCTION: Reads one record from the CRF file and returns 

the date of form, programmer number, and count 

CALLING SEQUENCE: 

CALL CRFCNT (IDBF, 

DATE, KOUNT, RESID* NULL, EOF, ERROR) 
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ROUTINE: CSFCNT 


FUNCTION: Reads one CSF file record and returns the date of 

form, programmer code, and count 

CALLING SEQUENCE; 

CALL CSFCNT ( 1DBF , 

DATE, KOUNT, RESID, NULL, EOF, ERROR) 


ROUTINE : CSRCNT 

FUNCTION: Reads one CSR file record and returns the date of 

form, programmer code, and count 

CALLING SEQUENCE: 

CALL CSRCNT ( IDBF , 

DATE, KOUNT, RESID, NULL, EOF, ERROR) 


ROUTINE : CSRHR 

FUNCTION: Reads one CSR file record and returns the date of 

form, programmer number, and hour count 

CALLING SEQUENCE: 

CALL CSRHR (IDBF, 

DATE, KOUNT, RESID, NULL, EOF, ERROR) 

ROUTINE : MAKWKS 

FUNCTION: Sets up an array of weeks covering the given 

timespan 

CALLING SEQUENCE: 

CALL MAKWKS ( DRANG 1 , DRANG 2, 

NWEEKS, WEEKS) 
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ROUTINE : NEXTWK 


FUNCTION: Computes date 1 week from the given date in 

YYMMDD format 

CALLING SEQUENCE: 

CALL NEXTWK (DATE, 

D) 


ROUTINE : RAFCNT 

FUNCTION: Reads one RAF file record and returns the date of 

form, programmer number, and form count 

CALLING SEQUENCE: 

CALL RAFCNT ( IDBF , 

DATE, KOUNT, RES ID, NULL, EOF, ERROR) 


ROUTINE : RARUNS 

FUNCTION: Reads one RAF file record and returns the date of 

form, programmer number, and run count 

CALLING SEQUENCE: 

CALL RARUNS (IDBF, 

DATE, KOUNT, RES ID, NULL, EOF, ERROR) 


ROUTINE: RSFHR 

FUNCTION: Accumulates staff hours from the RSF file for 

each week from the beginning of the design phase to the end 
of the cleanup phase 

CALLING SEQUENCE: 

CALL RSFHR (DRANG1 , DRANG 2 , IRSFF, KEY, RSFNAM, RSFRUN, 
TYPE, 

AFTTOT, ALLTOT, BEFTOF, HRDATA , NPROG, 
NWEEKS, PHDATA, PHTOT, PRGAFT , PRGBEF , 
PRGTOT, PROGNO, WEEKS, WKTOT, ERROR) 
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ROUTINE : WKDATA 


FUNCTION: Accumulates staff hours or counts for each week 

in the given timespan from the given data base file 

CALLING SEQUENCE: 

CALL WKDATA (DRANG1, DRANG2 , IDBF, RSFNAM, TYPE, 

AFTTOT, ALLTOT, BEFTOT, HRDATA , NPROG , 
NWEEKS, PHDATA, PHTOT, PRGAFT , PRGBEF, 
PRGTOT , PROGNO, WEEKS, WKTOT , ERROR) 


ROUTINE: WKDMP 

FUNCTION: Main routine of the WK program, reads the desired 

file for a given project and produces a report by person by 
week with subtotals by phase 

CALLING SEQUENCE: None 

3. 4. 3. 2 Write Output Reports and Plot Files 

These seven routines write the output report and plot files. 

ROUTINE: DMPRPT 

FUNCTION: Prints the complete WK report 

CALLING SEQUENCE: 

CALL DMPRPT (AFTTOT, ALLTOT, BEFTOT, DESCR, DRANG1, 

DRANG 2, HRDATA, IRPTF, NPROG, NWEEKS, 

PHDATA, PHTOT, PRGAFT, PRGBEF, PRGTOT, 

PRJNAM, RPTITL, RPTNAM , SRTIDX, WEEKS, WKTOT) 


ROUTINE: FSUMRY 

FUNCTION: Prints a six-line header summary with data from 

the HDR and EST files 

CALLING SEQUENCE: 

CALL FSUMRY (IRPTF, PRJNAM) 
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OUTINE: HEADER 


FUNCTION: Prints a one-line title for each report page, 

including the date and the project name 

CALLING SEQUENCE: 

CALL HEADER ( IRPTF, PRJNAM, RPTITL) 

ROUTINE : PRTl 

FUNCTION: Prints the WK report header page 

CALLING SEQUENCE: 

CALL PRTl (DESCR, DRANG1 , DRANG 2 , IRPTF, NPROG, PRJNAM, 
RPTITL, SRTIDX) 


ROUTINE: PRT2 

FUNCTION: Prints the WK report data page 

CALLING SEQUENCE: 

CALL PRT2 (AFTTOT, ALLTOT, BEFTOT, DESCR, DRANG1, 

DRANG 2 , HRDATA, IRPTF, NPROG, NWEEKS , PHDATA , 
PHTOT, PRGAFT , PRGBEF, PRGTOT, PRJNAM, RPTITL, 
SRTIDX, WEEKS, WKTOT) 


ROUTINE: WRTPLT 

FUNCTION: Writes the given data to an intermediate file in 

preparation for pie chart plotting 

CALLING SEQUENCE: 

CALL WRTPLT (DATA, DESCR, EXT, NDATA , PIETTL, PRJNAM, 
RPTITL) 


ROUTINE: WRTPL3 

FUNCTION: Writes the given data to an intermediate file in 

preparation for graphing 
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CALLING SEQUENCE: 


CALL WRTPL3 (DATA, EXT, KLINES, MARKER, NDATA , PIETTL, 
PRJNAM, RPTITL, XMAX, XTITLE, YMAX , YTITLE ) 


ROUTINE: WRTPL3 

FUNCTION: Writes the given data to an intermediate file in 

preparation for graphing 

CALLING SEQUENCE: 

CALL WRTPL3 (DATA, EXT, KLINES, MARKER, NDATA, PIETTL, 
PRJNAM, RPTITL, XMAX, XTITLE, YMAX, YTITLE) 

3 . 4 . 3 . 3 Obtain Data From Terminal or External File 

These five routines obtain information from a user's re- 
sponse to a terminal prompt or from an external file. 


ROUTINE : FENCA 

FUNCTION: Finds the description field on the Encoding Dic- 

tionary corresponding to the given type and code 

CALLING SEQUENCE: 

CALL FENCA ( IENCF, TYPE, CODE, 

NAME, REST, FOUND) 

ROUTINE : GETFLD 

FUNCTION: Displays the given text on the terminal and 

prompts for a character string 

CALLING SEQUENCE: 

CALL GETFLD (TEXT, EXTFIL, FLDLEN , 

TERMNL, EOFTTY , ERROR, 

FIELD) 


ROUTINE : GETOPT 

FUNCTION: Obtains the project name from the terminal 
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CALLING SEQUENCE: 


CALL GETOPT (TERMNL, 

PRJNAM, RPTITL , RPTNAM, RSFNAM, TYPE, EOF, 
ERROR) 


ROUTINE : HELP 

FUNCTION: Prints help information to the terminal 

CALLING SEQUENCE: 

CALL HELP 

ROUTINE: NAME 3 

FUNCTION: Concatenates the given strings to form a complete 

file name 

CALLING SEQUENCE: 

CALL NAME 3 (DISK, UIC, NAME, EXTENS , 

DSN) 

3 . 4 . 3 . 4 Sort and Search Routines 

These seven routines provide some sort and search functions. 
ROUTINE: HIPT (INTEGER* 2 FUNCTION) 

FUNCTION: Finds the first integer having a single signi- 

ficant digit that is greater than the given integer 

CALLING SEQUENCE: 

HIPT (L) 

ROUTINE: INWK 

FUNCTION: Determines whether the given date is within the 

date range 


3-74 


8818 



CALLING SEQUENCE: 

CALL INWK (DATIN, DATEl , DATE 2 , 

INWEEK ) 

ROUTINE: MAXIM (INTEGER* 2 FUNCTION) 

FUNCTION: Finds the maximum number in an array of integers 

CALLING SEQUENCE: 

MAXIM (ARRAY, NARRAY) 

ROUTINE : PHSCHK 

FUNCTION: Determines whether the given date is within the 

start and end dates of the given range 

CALLING SEQUENCE: 

CALL PHSCHK ( FDATE , DRANG1, DRANG 2, 

PHNUM, INPHAS ) 

ROUTINE : PROCNM 

FUNCTION: Converts given programmer numbers into programmer 

names 

CALLING SEQUENCE: 

CALL PROCNM ( IENCF, NPROG, PROGNO, KTYPE, 

DESCR, SRTIDX, ERROR) 


ROUTINE : STORE 

FUNCTION: Determines whether the given number is in the 

given array, adds it if it is not, and returns the location 
of the given number in the given array 
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CALLING SEQUENCE: 


CALL STORE ( RES ID , ' MAXPRG , 
PROGNO, NPROG, 
IDNUM, BADID) 


ROUTINE : WKCHEK 

FUNCTION: Determines which week in a given array of weeks 

contains the given date 

CALLING SEQUENCE: 

CALL WKCHEK (DATIN, NWEEKS , WEEKS, 

WKNUM , INWEEK) 

3 . 4 . 3 . 5 File Open and Read Routines 

These ten routines either open an indexed file or read rec- 
ords from an indexed file. 

ROUTINE : FACC 

FUNCTION: Reads one record from the ACC file 

CALLING SEQUENCE: 

CALL FACC ( IACCF , 

PRJCOD, DATE, TIME, TSOFOR, TSOBCK, RJE , 

CRDRDR, CPI, CPU95, 1095, RUNS 9 5 , FAIL95, CP 2, 
CPU75, 1075, RUNS 75, FAIL75, IS TAT, EOF, ERROR) 

ROUTINE : FCRF 

FUNCTION: Reads one record from the CRF file and converts 

the data to internal format 

CALLING SEQUENCE: 

CALL FCRF ( ICRFF , 

FORMNO, PRO JNO , PROGNO, FDATE , NCH, NEXAM, 
0VER1 , DATDET , DATBEG, EFFORT, CHTYPE , CHCOMP, 
ERRTYP, ERRIN, DATERR, LGCERR, ACTVTY , ISOLTM, 
PATCH, RELOLD, RELNO, RELDAT, CMTREA , CMTDES , 
GMTGEN, STATUS, EOF, ERROR) 
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ROUTINE: FCSF 


FUNCTION: Reads one record from the CSF file 

CALLING SEQUENCE; 

CALL FCSF ( ICSFF , 

FORMNO, PRO JNO , PROGNO, PROGI , FDATE , FSTAGE, 
COMPCO, PRECIS , CMPLEX, SWTYPE, PASGN , PCNTL , 
POTHER, STATWO, STMT, BTSIZE, INDEP, RELSW , 
ADDTYP , NCALLD , XI, NCALNG, X2, NSHR, X3 , 
NDESC, X4, LANG1 , PLANG1, LANG 2, P LANG 2 , DES, 
CONSTR , DESRUN, CODRUN, TSTRUN , DESTIM, 
CODTIM, TSTTIM, DESEFF, CODEFF, TSTEFF , 
DESDAT, CODDAT, TSTDAT, DESCR, CALLD , CALNG , 
SHR, AFFECT, OTH, NAMCON, CMTl, CMT2, ISTAT, 
EOF, ERROR) 


ROUTINE: FCSR 

FUNCTION: Reads one record from the CSR file using a 

FORTRAN read 

CALLING SEQUENCE: 

CALL FCSR ( ICSRF , 

FORMNO, SEQNO, PRO JNO, PROGNO, FDATE, COMPCO, 
TIMES, OTHNAM, OTHOUR, ISTAT, PHASE, EOF, 
ERROR) 


ROUTINE : FEST 

FUNCTION: Reads one record from the EST file and converts 

all data to internal format 

CALLING SEQUENCE: 

CALL FEST (IESTF, NAME, 

PROJ , NCOMP , MODDEL, MODNEW, MODMOD, NRUNS , 
NCHANG , PAGDOC, LINDEL, LINNEW, LINMOD, 
TOTEXT, NEWEXT, MODEXT, PROGHR, MGMTHR , 
OTHRHR, HR95, HR75, OTHCMP, STATUS, ACTIVE, 
PRJCAT, FOUND, ERROR) 
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ROUTINE: FHDR 


FUNCTION: Reads one record from the HDR file and converts 

all data to internal format 

CALLING SEQUENCE: 

CALL FHDR ( IHDRF , PRJNAM, 

PROJ , DEVCMP , TARG, ALIEN, RANGES, STATUS, 
ERROR) 

ROUTINE : FOPEN 

FUNCTION: Opens an indexed file 

CALLING SEQUENCE: 

CALL FOPEN (IUNIT, FILNAM, 

ERROR) 


ROUTINE : FRAF 

FUNCTION: Reads one record from the RAF file using a 

FORTRAN read 

CALLING SEQUENCE: 

CALL FRAF (I RAFF, 

FORMNO , SEQNO, PROJNO, PROGNO, RDATE , MACHIN 
INTERA, PURPOS, NCOMP, COMPCO, FIRST, METOBJ 
RESULT, COMENT, ISTAT, EOF, ERROR) 

ROUTINE: FREAD 

FUNCTION: Reads one indexed record 

CALLING SEQUENCE: 

CALL FREAD (IUNIT, KEYVAL, KEYLEN, LRECL , 

BUFFER, ERROR) 
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ROUTINE: FRSF 


FUNCTION: Reads one record from the RSF file and returns 

all data on that record plus an array of dates for each week 
for which there is a resource entry on the record 

CALLING SEQUENCE: 

CALL FRSF ( IRSFF, 

FORMNO , SEQNO, PROJNO, RESCOD , RES ID, FDATE , 
PCMGMT , WKDATE , NRUNS , TIMES, STATUS, PHASE, 
LASTWK, EOF, ERROR) 

3 . 4 . 3 . 6 Routines for String Movement or Comparison 
These four routines concern string movement or comparison. 
ROUTINE : BLANK 

FUNCTION: Initializes an array to blanks 

CALLING SEQUENCE: 

CALL BLANK (ARRAY, NUM) 

ROUTINE: MATCHS (LOGICAL FUNCTION) 

FUNCTION: Determines whether the two input strings are the 

same 

CALLING SEQUENCE: 

MATCHS (ARRAYl , ARRAY 2 , NBYTES) 

ROUTINE : MOVE 

FUNCTION: Moves given number of bytes from one address to 

another 

CALLING SEQUENCE: 

CALL MOVE (A, B, LEN) 
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ROUTINE: WHERE 


FUNCTION: Finds the location of the given character in the 

given string 

CALLING SEQUENCE: 

CALL WHERE (CHAR, STRING, LEN, 

LOC, FOUND) 

3 . 4 . 3 . 7 Variable Description 

The variables in the calling sequences of major WK routines 
are described below. 


Name 

Type 

Description 

AFTTOT 

1*2 

Total number of programmer hours 
after cleanup 

ALLTOT 

1*4 

Total programmer hours 

ARRAY (N ARRAY) 

1*2 

Array to be searched 

BAD ID 

L*1 

Error flag to indicate that there 
is no room for the new number in 
the given array 

BEFTOT 

1*2 

Total programmer hours before 
design 

DATE (3) 

1*2 

Form date (YY,MM,DD) 

DATE! (3) 

1*2 

Range start date ( YY,MM,DD) 

DATE 2(3) 

1*2 

Range end date ( YY,MM, DD) 

DATIN ( 3) 

1*2 

Given date ( YY , MM, DD) 

DESCR (20,20) 

L*1 

Programmer names 

DRANG1 (3,6) 

1*2 

Phase start dates 

DRANG2 (3,6) 

1*2 

Phase end dates 

EOF 

L* 1 

End-of-f ile flag 

ERROR 

L*1 

Error flag 

HRD ATA (20,400) 

1*2 

Number of programmer (or other) 
hours for each week 

I DBF 

1*2 

Unit number for data base file 

IDNUM 

1*2 

Location of given number in array 

IENCF 

1*2 

Unit number for ENC file 
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Name 


Type Description 


INWEEK 

L*1 

Flag indicating whether given date 
falls within range 

IRPTF 

1*2 

Unit number for output report file 

IRSFF 

1*2 

Unit number for RSF file 

KEY 

L*1 

Code used to determine which re- 
source is desired 
M = manpower 


C = computer 
O = other (services) 


KOUNT 

1*2 

Hour, person, or run count for 
given record 

KTYPE 

1*2 

Resource type 

L 

1*2 

Given number 

MAXPRG 

1*2 

Maximum number of array elements 
allowed 

NARRAY 

1*2 

Size of array 

NPROG 

1*2 

Number of programmers 

NULL 

L*1 

Flag indicating whether record 
read is usable 

NWEEKS 

1*2 

Number of weeks in project 

PHDATA (20,5) 

1*2 

Phase subtotals 

PHTOT ( 5 ) 

1*2 

Phase totals 

PRGAFT (20) 

1*2 

Programmer totals after cleanup 

PRGBEF ( 20 ) 

1*2 

Programmer totals before design 

PRGTOT (20) 

1*2 

Totals for each programmer 

PR JNAM ( 8 ) 

L*1 

Project name 

PROGNO (20) 

1*4 

Programmer numbers 

RES ID 

1*4 

Programmer or computer code 

RPTITL (40) 

L*1 

Report title 

RPTNAM ( 27 ) 

L*1 

Report file name 

RSFNAM (27) 

L*1 

Data base file name 

RSFRUN 

L*1 

Flag indicating that RSF file run 
count is desired 

SRTIDX ( 20 ) 

1*2 

Sorted index array to alphabetize 
programmers 

TERMNL 

L*1 

Flag of whether to read from ter- 
minal or external file 
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Name 

Type 

Description 

TYPE (3) 

L*1 

Report type 

WEEKS (3, 400) 

1*2 

Week array 

WKNUM 

1*2 

Number of week containing given 
date 



= 0 if given date is after range 
= -1 if given date is before range 

WKTOT (400) 

1*2 

Total hours each week 


3.4.4 TASK BUILD PROCEDURE 

3. 4. 4.1 Command Procedures 

The WK program can be generated from the source code by ex- 
ecuting the command procedure WKGEN.CMD under UIC [204,6]. 
This command procedure references three command files-- 
WKFPP.CMD , WKFOR.CMD, and WK.TKB — all under UIC [204,6]. 
Figure 3-11 is a listing of the command procedure WKGEN.CMD, 
which precompiles, compiles, and builds the WK program task 
image. The WK program is generated by entering the following 
command: 

@ [204,6 ]WKGEN 

3. 4. 4. 2 Overlay Structure 

The WK program is overlaid to reduce the memory space re- 
quirement. Figure 3-12 is a listing of the Overlay De- 
scriptor Language file, [204, 6JWK.ODL, needed to build the 
WK program task image. The system libraries RMS11M.ODL and 
RMS12X.ODL are needed for the overlay. 
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9WKGEN.CMD 


1 
2 
3 

; GENERATE THE WEEKLY FORM AND HOUR COUNT REPORT PROGRAM (WK) 4 

; TASK (P. LO 5/10/82) 5 

; 6 

; PRECOMPILE FORTRAN SOURCE 7 

; 8 

«[ 204, 6 JWKFPP.CMD 9 

; 10 

; aWKFPP . CMO 11 

; 12 

• PRECOMPILE FORTRAN SOURCE FOR THE WEEKLY FORM AND HOUR COUNT 13 

; REPORT PROGRAM (WK) (P. LO 5/10/82) 14 

: 15 

; ROUTINE WITH PREFIX WK 16 

! 17 

; FPP SY: [204,6 ]WKACCHR7 18 

; FPP SY : [204 , 6 ]WKACCHR9 19 

; FPP SY : [ 204 . 6 [WKACCRUN 20 

; FPP SY : [204.6 ]WKCRFCNT 21 

:FPP SY : [204 , 6 JWKCSFCNT 22 

; FPP SY : [204,6 JWKCSRCNT 23 

; FPP SY: [204,6 ]WKCSRHR 24 

;FPP SY: [204,6 JWKDMPRPT 25 

; FPP SY : [204 , 6 ]WKGETOPT 26 

; FPP SY: [204.63WKHELP 27 

; FPP SY : [ 204 , 6 jwKHIPT 28 

; FPP SY : [204,6 JWKINWK 29 

; FPP S Y : [ 204 , 6 ] WKMAKWKS 30 

; FPP SY : [ 204 , 6 ]WKMAXIM 31 

;FPP SY: [204,6 3WKPR0CNM 32 

; FPP SY : [204,6 ]WKPRT1 33 

; FPP SY : [ 204 , 6 ]WKPRT2 34 

; FPP SY : [204 ,6]WKRAFCNT 35 

; FPP SY :[ 204,6 JWKRARUNS 36 

: FPP SY : [204 , 6 ] WKRSFHR 37 

; FPP SY: [204.6 ]WKSTORE 38 

: FPP SY : [204,6 IWKWKCHEK 39 

; FPP SY :[ 204.6 JWKWKDATA 40 

;FPP SY:[ 204,6 JWKWKOMP 41 

; 42 

; ROUTINE WITH PREFIX UT 43 

44 

; FPP SY :[ 204,7 JUTBLANK 45 

; FPP SY: [204,7 ]UTFACC 46 

: FPP SY: [204,7 JUTFCRF 47 

; FPP SY : [204 , 7 jUTFCSF 48 

; FPP SY : [ 204 , 7 ]UTFCSR 49 

; FPP SY: [204,7 JUTFENCA 50 

;FPP SY: [ 204 , 7 JUTFEST 51 

; FPP SY : [204.7 JUTFHDR 52 

; FPP SY: [204,7 lUTFOPEN 53 

; FPP SY: [204.7 JUTFRAF 54 

;FPP SY : [ 204 , 7 lUTFREAO 55 


Figure 3-11. WK Task Generation Command Procedure 
(WKGEN.CMD) (1 of 3) 
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;FPP $Y: [204,7 jUTFRSF 
;FPP SY : [ 204 , 7 ]UTF5UMRY 
;FPP SY : [204,7 ]UTGETFLD 
; FPP SY: [204,7 jUTHEADER 
; FPP SY : [204 , 7 ] UTMATCHS 
; FPP SY : [204 v 7JUTM0VE 
; FPP SY : [204,7 ]UTNAME3 
; FPP SY : [ 204 , 7JUTNEXTWK 
i FPP SY: [204,7 JUTPHSCHK 
; FPP SY: [204,7 3UTSQEE2 
I FPP SY : [204 , 7 JUTWHERE 
i FPP SY: [204,7 jUTWRTPLT 
i FPP SY: [204,7 JUTWRTPLS 

; COMPILE FORTRAN SOURCE 

@[204, 6 lWKFOR.CMD 

@WKFOR.CMD 

COMPILE FORTRAN SOURCE FOR THE WEEKLY FORM AND HOUR COUNT 

REPORT PROGRAM ( WK ) (P. LO 5/10/82) 

ROUTINE WITH PREFIX WK 

F0R/F4P/0BUECT : [204 , 6 ] WKACCHR7 [ 204 . 6 ] WKACCHR7 
FOR/F 4P/0S JECT : [ 204 , € ]WKACCHR9 [ 204 . 5 JWKACCHR9 
F0R/F4P/0B JECT : [ 204 , £ ] WKACCRUN [ 204 . € J WKACCRUN 
F0R/F4P/0BUECT: [ 204 , 6 ] WKCRFCNT [ 204 , 6 ] WKCRFCNT 
FOR/F 4P /OB JECT : [ 204 , 6 ] WKCSFCNT [ 204 , 6 ] WKCSFCNT 
FOR,/ F4P/0B JECT : [ 204 , 6 3 WKCSRCNT [ 204 , 6 ] WKCSRCNT 
F0R/F4P/0B JECT : [ 204 , 6 ] WKCSRHR [ 204 , € ] WKCSRHR 
FOR/F 4P/0B JECT : [ 204 . 6 3 WKDMPRPT [ 204 . 6 ] WKDMPRPT 
F0R/F4P/0B JECT : [204 , 6 ] WKGETOPT [204 , 6 ] WKGETOPT 
FCR/F4P/0B JECT : [ 204 ,6 ) WKHELP [ 204 , 6 3 WKHELP 

F0R/F4P/0BJECT: [204,6] WKHIPT [ 204 ,6 jWKHIPT 
F0R/F4P/0B JECT : [ 204 . 6 ] WK INWK [ 204 . 6 ] WK INWK 
F0R/F4P/0B JECT : [204 ,6]WKMAKWKS [ 2Q4 , 6 ] WKMAKWKS 
FCR/F4P/0EJECT: [ 204 , 6 ] WKMAX I M [ 204 . 6 ] WKMAX I M 
FOR/ F4P/0B JECT : [ 2C4 , 6 ] WKPRGCNM [ 204 .6 ] WKPROCNM 
F0R/F4P/0B JECT : [ 204 . 6 ] WKPRT 1 [ 204 , 6 ] WKPRT 1 

F0R/F4P/0B JECT : [ 204 , 6 ] WKPRT2 [ 204 , 6 ] WKPRT2 
F0R/F4P/ OBJECT : [ 204 , 6 ] WKRAFCNT [ 204 , 6 ] WKRAFCNT 
FOR/F 4P/0B JECT ‘ [204 ,6 jWKRARUNS [ 204 . 6 ] WKRARUNS 
F0R/F4P/0B JECT : [ 204 , 6 ] WKRSFHR [ 204 , 6 ] WKRSFHR 
F0R/F4P/QBJECT : [ 204 , 6 ] WKSTORE [ 204 , 6 ] WKSTORE 
FOR/F4P/OB JECT : [ 204 . 6 ] WKWKCHEK [ 204 , 6 3 WKWKCHEK 
F0R/F4P/0B JECT : [ 204 , 6 JWKWKDAT A [ 204 , 6 3 WKWKOATA 
F0R/F4P/0B JECT : [ 204 , 6 ] WKWKCMP [ 204 , 6 ]WKWKDMP 

ROUTINE WITH PREFIX UT 

F0R/F4P/QB JECT : [ 204 . 7 ]UTBLANK [ 204 . 7 ]UTBLANK 
F0R/F4P/0B JECT : [ 204 , 7 JUTFACC [ 204 , 7 JUTFACC 

F0R/F4P/0B JECT : [ 204 . 7 jUTFCRF [ 204 , 7 ]UTFCRF 
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Figure 3-11. WK Task Generation Coiranand Procedure 
(WKGEN.CMD) (2 of 3) 
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; FOR/ F4 P/OB JECT : [ 204 , 7 ]UTFCSF t 204 . 7 [UTFCSF Ml 
; F0R/F4P/0B JECT: [ 204 , 7 ]UTFCSR [ 204 . 7 JUTFCSR 112 
; F0R/F4P/0B JECT : ( 204 , 7 ] UTFENCA [ 204 . 7 JUTFENCA 113 
; FOR/ F4P/0B JECT : [204 , 7 ]UTFEST [204.7JUTFEST 114 
: F0R/F4P/0B JECT: [204,7 jUTFHDR [ 204 , 7 JUTFHOR 115 
; FOR/ F4P/0B JECT : [ 204 , 7 JUTFOPEN [ 204 , 7 [UTFOPEN 116 
; F0R/F4P/0BJECT : [204 , 7 ]UTFRAF [ 204 , 7 jUTFRAF 117 
; F OR/ F 4 P/OB JECT : [ 204 , 7 JUTFRgAO [ 204 . 7 JUTFREAD 118 
; FOR/ F4P/0B JECT : [ 204 , 7 ]UTFRSF (204 . 7 JUTFRSF 119 
; FOR/ F 4P/08 JECT : [ 204 , 7 ]UTFSUMRY [ 204 , 7 JUTFSUMRy 120 
; F0R/F4P./0B JECT: [204,7 JUTGETFLD [ 204 . 7 ]UTGETFLD 121 
: F0R/F4P/0BJECT : [204 , 7 jllTHEADER [ 204 . 7 jllTHEADER 122 
: F0R/F4P/0B JECT: [204,7 ]UTMATCHS [ 204 . 7 ]UTMATCHS 123 
; FOR/ F4P/0B JECT : [204 , 7 ]UTMOVE [ 204 . 7 ]UTMOVE 124 
; F OR/ F 4 P/OB JECT : [ 204 , 7 ] UTNAME3 [ 204 , 7 ]UTNAME3 125 
; F0R/F4P/0BJECT : [204 , 7 ]UTMEXTWK [ 204 , 7 ]UTNEXTWK 126 
; FOR/F 4P/0B JECT : [ 204 . 7 ]UTPHSCHK [ 204 , 7 ]UTPHSCHK 127 
; F0R/F4P/QBJECT : [204,7 JUTSOEEZ [204 . 7 JUTSOEEZ 128 
: F0R/F4P/0B JECT: [204, 7JUTWHERE [ 204 , 7 JUTWHERE 129 
; F0R/F4P/0B JECT : [204,7 JUTWRTPLT [204 . 7]UTWRTPLT 130 
; FOR/F 4P/0B JECT : [ 204 , 7 JUTWRTPL3 [ 204 . 7 [UTWRTPL3 131 

: 132 
; GENERATE THE WK TASK 133 

: 134 
TKB 9 [204 , 6 ]WK . TKB 135 

: 1 36 
®WK . TKB 137 

: 138 
: TASK BUILD COMMAND PROCEDURE FOR THE WEEKLY FORM AND HOUR COUNT i*>g 
; REPORT PROGRAM (WK) t j 0 

' , 14 1 
: [204,5 ]WK»[ 204,6 JWK/MP 142 
;UNITS=20 143 
: MAXBUF -250 144 
:// 145 


Figure 3-11. WK Task Generation Command Procedure 
(WKGEN.CMD) (3 of 3) 
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'SWK.ODL 


1 

2 
3 

OVERLAY STRUCTURE FOR THE WEEKLY HOUR AND FORM COUNT REPORT PROGRAM 4 

<WK) = 


6 



.ROOT $TREE 

. RMSALL , OTSALL 

7 


.NAME FO 


8 

$TREE 1 

.FCTR 

$R00T-RMSR0T-0TSR0T-$R0T2O 

9 

$RQOT: 

. FCTR 

[ 204 , 6 ] WKWKDMP - [ 204 , 6 ] WKWKCHEK - SRO0T6 

10 

$R00T6 

.FCTR 

[204 ,7]UTBLANK -SR00T7 

1 1 

$R00T7 

. FCTR 

[ 204 , 7 ]UTNAME3 -$R00T8 

12 

$ ROOTS 

.FCTR 

[ 204 , 7 ] UTMATCHS - [ 204 . 7 ] UTMOVE - $R0T 1 2 

13 

$ROT 1 2 

.FCTR 

[ 204 , 7 ] UTFOPEN - [ 204 ,7]UTFREAD -$R0T14 

14 

$R0T 14 

. FCTR 

[ 204 . 7 [UTSOEEZ - [ 204 . 7 juTGETFLD- [ 204 . 7 JUTWHERE 

15 

$R0T2O 

.FCTR 

* ( $HLP . $0PT . $FILE . $PROC . $DMP . $PLT ) 

16 

$HLP : 

.FCTR 

[204,6]WKHELP 

17 

18 

$OPT : 

.FCTR 

[ 204 , S ] WKGETOPT 

19 

20 

$F I LE : 

.FCTR 

FD- [ 204 , S ]WKINWK- [ 204 , 6 ] WKMAKWKS -$FD2 

21 

22 

$FD2 : 

.FCTR 

[ 204 . 6 JWKSTORE- [204 , 7 ]UTPHSCHK-$FD3 

23 

$FD3: ■ 

. FCTR 

[ 204 . 7 ]UTNEXTWK-( $RSF . $DATA ) 

24 

$R5F : 

.FCTR 

[ 204 . S ] WKRSFHR - [ 204 . 7 ] UTFRSF 

25 

26 

$DATA : 

.FCTR 

[204.6 JWKWKDATA- ($HW , $MW, $TW, $RW. SRW2 . $TH, SXW1 , $XW2 . 

27 

28 

$HW: 

. FCTR 

[ 204 . 6 ] WKCRFCNT- [204 . 7 JUTFCRF 

29 

$MW: 

.FCTR 

[ 204 , 6 ] WKCSFCNT- [ 204 . 7 JUTFCSF 

30 

$TW: 

.FCTR 

[ 204 , 6 JWKCSRCNT- [204 . 7 juTFCSR 

31 

$RW : 

. FCTR 

[ 204 . S ] WKRAFCNT- [ 204 . 7 ]UTFRAF 

32 

$RW2 : 

. FCTR 

[ 204 . 6 ]WKRARUNS- [ 204 . 7 juTFRAF 

33 

$TH: 

.FCTR 

[ 2C4 , 6 ] WKCSRHR -[ 204 . 7 JUTFCSR 

3d 

$XW1 : 

.FCTR 

[ 204 . 6 ] WKACCRUN- [ 204 . 7 ]UTF ACC 

35 

$XW2 : 

.FCTR 

[ 204 . 6 [WKACCHR7- [ 204 . 7 JUTFACC 

36 

$XW3 : 

.FCTR 

[ 204 . 6 [WKACCHR9- [204 . 7 JUTFACC 

37 

$PROC : 

.FCTR 

[ 204 . 6 ] WKPROCNM- [ 204 , 7 JUTFEMCA 

38 

39 

$DMP: 

.FCTR 

[ 204 . 6 ] WKDMPRPT -$A - ( [ 204 . 6 ] WKPRT 1 -$OUT , $PRT2) 

4Q 

41 

$A : 

.FCTR 

[ 204 , 7 JUTHEADER 

42 

$OUT : 

.FCTR 

[ 204 , 7 JUTFSUMRY- [ 204 . 7 ]UTFEST-[204 . 7 JUTFHOR 

43 

$PRT2 : 

.FCTR 

[204.6 JWKPRT2 - [ 204 .6 JWKMAX IM - [ 204 . 6 ] WKHIPT 

44 

$PLT: 

.FCTR 

[ 204 . 7 JUTWRTPLT- [ 204 , 7 JUTWRTPL3 

45 

49 

® LB : [ 1 , 

, 1 ]RMS1 1M.ODL 


47 

48 

®LB : [ 1 , 

, 1 J'RMS 1.2.X .DDL 


49 


.END 


50 


Figure 3-12. WK Program Overlay Descriptor Language File 
(WK.ODL) 
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3.5 COMPONENT INFORMATION REPORT BY FUNCTION TYPE PROGRAM 

(REP4) AND ITS PREPROCESSOR, THE CHANGE AND ERROR ACCU- 
MULATION PROGRAM (CG) 

3.5.1 INTRODUCTION 

The Component Information Report by Function Type Program 
(REP4) produces a list of components and associated data for 
a given project, organized by the function type of the 
component and sorted by the number of executable state- 
ments. The change and error data on this report are read 
from an intermediate file produced by the Change and Error 
Accumulation Program (CG) . 

3.5.2 PROGRAM STRUCTURE 


3. 5. 2.1 Files Accessed 


The CG program accesses two input files and two output 
files, as described below. 


Input File Name 


Description 


[204.1] <PRJNAM>.CIF Component Information File (CIF) 

for the given project 

[204.1] <PRJNAM>.CRF Change Report Form (CRF) file for 

the given project 


Output File Name 


Description 


<PRJNAM> . CHN CG intermediate output file contain- 

ing change and error data for the 
given project 

FOR006.DAT File containing all component names 

not found on the CIF for the given 
project 


The REP4 program accesses two input files and one output 
file, as described below. 


Input File Name Description 

[ 204 , 1] <PRJNAM> . CIF CIF for the given project 

<PRJNAM> . CHN CG intermediate file containing 

change and error data for the given 
project 
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Output File Name 


Description 


<PRJNAM>.RP4 Output report for the given project 

In these file names, <PRJNAM> denotes the name of the 
project selected by the user. 

3 . 5 . 2 . 2 Baseline Diagrams 

Figure 3-13 is the baseline diagram for the CG program. The 
XCH routine is the main driver. It obtains the project 
name, reads the CIF and the CRF file for the given project, 
accumulates the change and error data from the CRF file, and 
writes the output files. XCH loops through this process 
until a^Z (control Z) is returned in response to the prompt 
for the project name. 

Figure 3-14 is the baseline diagram for the REP 4 program. 

The driver routine, REP4, obtains the project name and 
selected subsystem, reads the CG intermediate file and the 
CIF for the given project, determines the component type, 
sorts all components by number of executable statements, and 
writes the output report. REP4 loops through this process 
until a^Z (control Z) is returned in response to a subsys- 
tem prefix prompt. 

3.5.3 SUBROUTINE/SUBSYSTEM DESCRIPTION 

The routines referenced by the CG and REP4 programs are 
grouped here by function. In each routine, the calling se- 
quence variables are grouped according to input, input and 
output (if any), and output and appear in the calling se- 
quence in that order. In the following descriptions, each 
group of variables begins a new line. The calling sequence 
variables for the major CG and REP4 routines. are described 
in Section 3,5.3. 5. Descriptions of the calling sequence 
variables for utility routines are not provided. In addi- 
tion to the routines described in this section, the CG and 
REP4 programs also reference the following system routines: 
DATE, ERRSNS, SECNDS, and TIME. 
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Figure 3-14. Baseline Diagram for the Component Information 
Report by Function Type Program (REP4) 






















3 . 5 . 3 . 1 Process Data and Compute Stati sties 


These six major routines obtain data from a given GIF or CRF 
file and compute statistics for the CG or the REP4 program. 

ROUTINE : C HD AT A 

FUNCTION: Accumulates change and error data by component 

from the CRF file 

CALLING SEQUENCE: 

CALL CHDATA (LUNIT, MUNIT, NUNIT, OUTDSN) 

ROUTINE: CTYPE 

FUNCTION: Determines the function type of a component 

CALLING SEQUENCE: 

CALL CTYPE (ICTEXC, ICTFNR , ICTIO, KASGN , KCALL , KFMT, 

I TYPE) 

ROUTINE : PERCNT 

FUNCTION: Computes percentages of several statistics 

CALLING SEQUENCE: 

CALL PERCNT (ICTDOS, ICTEXC, ICTFNR, ICTIFF, ICTIO, 
IDECIS, KASGN, KCALL, KFMT, 

PASGN , PCALL , PDEC, PDOS, PFUNC, PIFS, PIO, 
PTOTS) 


ROUTINE: REP 4 

FUNCTION: Main routine of the REP4 program, extracts data 

from the CIF and the CG intermediate file, determines the 
function type of the components, and writes the output report 

CALLING SEQUENCE: None 
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ROUTINE : TYPREP 


FUNCTION: Reads records from the CIF, computes statistics, 

and writes the report subdivided by function type of com- 
ponent 

CALLING SEQUENCE: 

CALL TYPREP ( ICHNGF, IREPF, LUNDB , ISORT, I TYPE , NSORT , 
Z PRO J , PREFIX, INAME) 


ROUTINE : XCH 

FUNCTION: Main routine of the CG program, accumulates 

change and error data from the CRF file and writes it to an 
intermediate output file 

CALLING SEQUENCE: None 

3 . 5 . 3 . 2 Input and Output Routines 

These four routines perform input or output functions. 
ROUTINE : CHNGES 

FUNCTION: Reads the CG intermediate data file and returns 

the number of changes and errors for a given component name; 
if the component name is not found, the routine returns 999 
for the output variables 

CALLING SEQUENCE: 

CALL CHNGES (ANAME, ICHNGF, 

NCHS , NERRS, TOTCH) 


ROUTINE : DCTION 

FUNCTION: Prints dictionary of abbreviations for page 1 of 

the REP4 report 

CALLING SEQUENCE: 

CALL DCTION (PROJ) 
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ROUTINE: DRDCIF 


FUNCTION: Reads one record from the CIF and converts all 

data to internal format 

CALLING SEQUENCE: 

CALL DRDCIF (LUNIT, IKEY, KEYVAL, 

PRO JNO , CPREFX, CNAME , ICODE, PANV, MODFUN , 
SYSFUN, ORIGIN, NEXEC, NLINES, NCOMNT, 

IETA1 , IETA2 , NETA1, NETA2 , NIOVAR, NDECIS , 
NFUNCT, NIO, NASGN , NCALL , NFMT, EOF, ERROR, 
LEN) 


ROUTINE: DRDCRF 

FUNCTION: Reads one record from the CRF file and converts 

all data to internal format 

CALLING SEQUENCE: 

CALL DRDCRF (MUNIT, 

FORMNO, PRO JNO, PROGNO , FDATE , NCH, NEXAM, 
OVERl , DATDET , DATBEG, EFFORT, CHTYPE , 
CHCOMP, ERRTYP, ERR IN, DATERR, LGCERR , 
ACTVTY , ISOLTM, PATCH, RELOLD, RELNO , 
RELDAT, CMTREA, CMTDES, CMTGEN , ISTAT, EOF, 
ERROR) 

3. 5. 3. 3 Sort and Search Routines 

These two routines perform sort or search functions. 
ROUTINE: FILEIT 

FUNCTION: Determines if the given name is in the current 

list and adds it if it is not 

CALLING SEQUENCE: 

CALL FILEIT (ERR IN , MAXNAM , NAME, 

NEWCH, NEWERR, NEWNAM, NNEW , 

ERROR) 
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ROUTINE: SORT 


FUNCTION: Produces an array of indexes sorted in order 

based on the given 1*2 array 

CALLING SEQUENCE: 

CALL SORT (12, NSORT , 

I SORT) 

3. 5. 3. 4 Routines Performing String Operations 
These two routines perform string operations. 

ROUTINE: MAKNAM 

FUNCTION: Concatenates the given strings to form a complete 

file name 

CALLING SEQUENCE: 

CALL MAKNAM (DISK, UIC, NAME, EXTENS , 

DSN) 


ROUTINE: SQEEZ 

FUNCTION: Removes blanks from a character string 

CALLING SEQUENCE: 

CALL SQEEZ (IN, NSIZE, 

NONBL, OUT) 

3 . 5 . 3 . 5 Variable Description 

The variables in the calling sequences of major CG and REP4 
routines are described below. 


Name 

Type 

Description 


ANAME 

•I 

* 

00 

Component name 


ERRIN 

1*2 

Flag indicating when error 
system 

entered 

ERROR 

L* 1 

Error flag 


ICHNGF 

1*2 

Change and error data file (CG 
intermediate file) unit number 
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Name 

ICTDOS 

ICTEXC 

ICTFNR 

ICTIFF 

ICTIO 

I DEC IS 

INAME (NSORT) 
IREPF 

ISORT (NSORT) 

ITYPE (NSORT) 

12 (NSORT) 

KASGN 

KCALL 

KFMT 

LUNDB 

LUNIT 

MAXNAM 

MUNIT 

NAME 

NCHS 

NERRS 

NEWCH(NNEW) 
NEWERR (NNEW) 
NEWNAM (NNEW) 
NNEW 
NSORT 


Type Description 

1*2 Number of DO and DOWHILE statements 

1*2 Number of executable statements 

1*2 Number of FUNCTION references 

1*2 Number of IF and .IF statements 

1*2 Number of I/O statements 

1*2 Number of decisions (McCabe's 

measure) 

R*8 Array of names of each component 

1*2 REP4 output report file unit number 

1*2 Sorted index array 

1*2 Function type of each component 

1*2 Array on which sort is based 

1*2 Number of assignment statements 

1*2 Number of CALLS 

1*2 Number of FORMAT statements 

1*2 CIF unit number 

1*2 Unit number associated with the CIF 

1*2 Maximum number of component names 

allowed in name array 

1*2 Unit number associated with the 

CRF file 

R*8 Component name 

1*2 Number of changes for the given 

component 

1*2 Number of errors for the given 
component 

1*2 Array of number of changes for 

each component 

1*2 Array of number of errors for each 
component 

R*8 Array of component names identified 

in the CRF file 

1*2 Number of components identified in 

the CRF file 

1*2 Number of records to be sorted 
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Name 


NUNIT 

OUTDSN (25) 

PASGN. 

PCALL 

PDEC 

PDOS 

PFUNC 

PIFS 

PIO 


PREFIX 
PROJ ( 8) 

PTOTS 

TOTCH 

ZPROJ (NSORT) 


Type Description 

1*2 Unit number of the CG intermediate 
file 

L*1 File name of the CG intermediate 
file 

R*4 Percent of assignment statements 

R*4 Percent of CALLS 

R*4 Percent of decisions 

R*4 Percent of DO and DOWHILE state- 

ments 

R*4 Percent of FUNCTION references 

R*4 Percent of IF and .IF statements 

R*4 Percent of I/O plus FORMAT state- 
ments 

1*2 Subsystem prefix given by user 

L*1 Project name 

R*4 Percent of CALL statements plus 

FUNCTION references 

1*2 Total number of changes and errors 

1*2 Subsystem prefix for each component 


3.5.4 TASK BUILD PROCEDURE 


3. 5. 4. 1 Command Procedures 

The CG program can be generated from the source code by ex- 
ecuting the command procedure CGGEN.CMD under UIC [204 f 6] 
(Figure 3-15). CGGEN.CMD references another command proce- 
dure, CG.TKB, under UIC [204,6], which builds the task image 
for the CG program. 

The REP4 program can be generated from the source code by 
executing the command procedure R4GEN.CMD under UIC [204,6] 
(Figure 3-16). Three other command procedures, R4FPP.CMD, 
R4FOR.CMD, and R4.TKB, under UIC [204,6], are referenced by 
this command procedure. 
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; 1 

; SCGGEN . CMD 2 

; 3 

; COMMAND PROCEDURE TO PRECOMPILE, COMPILE. AND TASK BUILD THE CHANGE 4 

; AND ERROR ACCUMULATION PROGRAM (CG) (P. LO 5/26/82) 5 

; 6 

; PRECOMPILE FORTRAN ROUTINES 7 

; 8 

FPP SY : [204.6 ]CGCHDATA 9 

FPP S Y : [ 204 , 6 ] CGF I LE I T 10 

FPP SY : [204.6 JCGXCH 11 

FPP SY : [204,7 JUTDRDCRF 12 

FPP SY: [204.7 }UTMAKNAM 13 

FPP SY: [204,7 3UTS0EEZ 14 

; 15 

; COMPILE FORTRAN ROUTINES 16 

; 17 

F0R/F4P/0BJECT: [204.6 1CGCHDATA [ 204 , 6 ] CGCHD A T A 18 

F0R/F4P/0B JECT : [ 204 , 6 J CGF I LE IT [204.6 J CGF I LE IT 19 

FOR/ F4P/0B JECT : [204, 6 JCGXCH [204,63CGXCH 20 

FOR /F4P /OBJECT : [204 , 7 JUTDRDCRF [ 204 , 7 JUTDRDCRF 21 

F0R/F4P/0B JECT : [ 204,7 juTMAKNAM [ 204 , 7 JUTMAKNAM 22 

F0R/F4P/0B JECT : [ 204 , 7 JUTSOEEZ [ 204 . 7 JUTSOEEZ 23 

: 24 

; BUILD THE CG PROGRAM TASK IMAGE 25 

; 26 

TKB ^[204,6300. TKB 27 

; 28 

; ^CG . TKB 29 

; 30 

TASK BUILD THE CHANGE AND ERROR ACCUMULATION PROGRAM (CG) 31 

; (P. LO 5/20/82) 32 

; 33 

; [ 204,5 3CG/FU« [ 204 , S ]CG/MP 34 

; ACTFIL*4 35 

;UNITS=20 36 

:ASG=SY: 1:2:6: 13.TI :5 37 

;// ' 33 


Figure 3-15, CG Task Generation Command Procedure 
(CGGEN.CMD) 
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®R4GEN.CMD 


1 
2 
3 

; COMMAND PROCEDURE TO PRECOMPILE. COMPILE. AND TASK BUILD THE 4 

; COMPONENT INFORMATION REPORT BY TYPE PROGRAM (REP4) 5 

; (P. LO 5/26/82) 6 

; 7 

PRECOMPILE FORTRAN ROUTINES 8 

9 

i [ 204 . 6 JR4FPP . CMD 10 

; 1 1 

; 9R.4FPP.CMD 12 

13 

; PRECOMPILE FORTRAN ROUTINES FOR THE COMPONENT INFORMATION REPORT BY 14 

; TYPE PROGRAM (R.EP4) (P. LO 5/26/82) * 15 

; 16 

; ROUTINES WITH PREFIX R4 17 

; 18 

; FPP SY : f 204.63R40CTI0N 19 

; FPP SY : [ 204 , 6 ] R4PERCNT 20 

; FPP SY : [204.6 JR4REP4 21 

; FPP SY : [2O4.6JR4S0RT 22 

; FPP SY: [204,6 JR4TYPREP 23 

; 24 

; ROUTINES WITH PREFIX R5 25 

• 26 

; FPP S Y : [ 204 , 6 3 R5CHNGES 27 

; FPP SY: [ 204 , 6 3 R5CTYPE 28 

: 29 

; ROUTINES WITH PREFIX UT 30 

: 3 1 

; FPP SY : [ 204 , 7 3 UTDRDC I F 32 

: FPP SY: [204.7 JUTMAKNAM 33 

;FPP SY: [204,7 JUTSQEEZ 34 

;• 35 

; COMPILE FORTRAN ROUTINES 36 

; 37 

9 [ 2 04 , 6 ] R 4 F OR .CMD 38 

; 39 

; 9R4F0R.CMD 40 

: 41 

; COMPILE FORTRAN ROUTINES FOR THE COMPONENT INFORMATION REPORT BY 42 

; TYPE PROGRAM ( REP4 ) (P, LO 5/26/82) 43 

; 44 

; ROUTINES WITH PREFIX R4 45 

; 46 

: F0R/F4P/0B JECT : [ 204 , 6 3 R40CTI0N [ 204 , 6 J R4D.CTI0N 47 

: F0R/F4P/0B JECT : [ 204 , 6 3R4PERCNT [ 204 .6 ]R4PERCNT 48 

; FOR/ F4P /OB JECT : [ 204 , 6 ) R4REP4 [ 204 , 6 ] R4REP4 49 

: F0R/F4P/0B JECT : { 204 , 6 3 R4S0RT [ 204 , 6 3 R4S0RT 50 

; F0R/F4P/0B JECT : {.204., 6 ]R4TYPREP [ 204 , 6 3 R4TYPREP 5 1 

: 52 

; ROUTINES WITH PREFIX R5 53 

; 54 

: F0R/F4P/0B JECT : [ 204 . 6 3 R5CHNGES [ 204 , 6 3R5CHNGES 55 


Figure 3-16 • REP4 Task Generation Command Procedure 
(R4GEN.CMD) (1 of 2) 
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; FOR/ F4P /OBJECT : [204,6] R5CTYPE [204,6] R5CTYPE 56 

57 

; ROUTINES WITH PREFIX UT 58 

59 

; F0R/F4P/0B JECT : [ 204 , 7 ]UTDRDC I F [ 204 , 7 JUTDRDCIF 60 

; F0R/F4P/0BUECT: [ 204 , 7 ] UTMAKNAM [ 204 . 7 ]UTMAKNAM 61 

; F0R/F4P/0BUECT : [ 204 , 7 ] UTSOE E Z [ 204 , 7 ]UTSQEEZ 62 

: 63 

; BUILD THE REP4 TASK IMAGE 64 

; 65 

TKB ® [ 204 , 6 ] R4 . TKB 66 

; 67 

; ®R4 . TKB 68 

; 69 

; CIF TYPE AND COMPLEXITY REPORT PROGRAM ( REP4 ) OVERLAY DEC 79 70 

: 71 

; [ 204 , 5 ] R4/FU , R4= [ 204 , 6 ] R4/MP 72 

; ACTF I L=3 73 

; UNI TS-20 74 

; ASG=SY : 2 : 6 : 1 1,TI :5 75 

;// 76 


Figure 3-16. REP 4 Task Generation Command Procedure 
(R4GEN.CMD) (2 of 2) 
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The CG program is generated by entering the following com- 
mand : 


@ [204,6] CGGEN 

The REP 4 program is generated by entering this command: 

@ [204,6] R4GEN 

3 . 5 . 4 , 2 Overlay Structure 

The CG and REP4 programs are both overlaid to reduce the 
memory space requirement. The files containing the Overlay 
Descriptor Language needed to generate the task images for 
these two programs are [204,6]CG.ODL and [204 , 6] R4.0DL, re- 
spectively. Figure 3-17 is a listing of CG.ODL; Figure 3-18 
is R4.0DL. The system libraries RMS11M.ODL and RMS12X.ODL 
are needed for both overlays. In addition, the RMS Indexed 
Access Program Library (RMSIAC) is needed in both overlays. 
The name of the library is [ 204 , 7] UFRMSIAC.OLB. It contains 
the FORTRAN routines necessary to access RMS indexed files. 
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; 1 

; 'PCG.ODL 2 

; 3 

; THE CHANGE AND ERROR ACCUMULATION PROGRAM (CG) OVERLAY 4 

; (P. LG 5/20/82) 5 

6 

.ROOT $TREE1 , OTSALL , RMSALL 7 

$TREE 1 : . FCTR [ 204 , 6 ]CGXCH-RMSROT-OT$ROT- [ 204 . 7 JUFRMS I AC/LB-* ( $LV ) 8 

$LV : .FCTR [ 204 , 7 ]UTMAKNAM, $CHDA , [ 204, 7 jUTSQEEZ 9 

$CHDA : .FCTR [ 204 , 6 ] CGCHDAT A -$C 1 ~ M [ 204 , 7 ]UTDRDCRF , [ 204 . 6 3 CGF I L E I T ) 10 

$C1: .FCTR [204.7JUFRMSIAC/LB 11 

; 12 

; 13 

^LB: [1,1 3RMS1 1M.0DL 14 

®LB: [1.1 ] RMS 1 2X . ODL 15 

.END 16 


Figure 3-17. CG Program Overlay Descriptor Language File 
(CG.ODL) 


; 1 

®R4 . ODL 2 

; 3 

; . OVERLAY STRUCTURE FOR THE COMPONENT INFORMATION REPORT BY 4 

; FUNCTION PROGRAM (REP4) 5 

(P. LO 5/5/82) S 

• 7 

.ROOT JTREE1 .OTSALL. RMSALL 8 

STREE1: .FCTR [ 204 , 6 ]R4REP4-RMSR0T-0TSR0T-$R 1 3 

SSI: .FCTR [ 204 . 7 JUTOROC I F - ( 204 , 7 ]UFRMS I AC / LB -$ FORT 10 

$FORT : .FCTR * ( [ 204 ,7 JUTMAKNAM, [ 204 , S JR5CTYPE , $SORT . $DIC . $SQ . $TYPE ) 11 

$SORT : .FCTR [ 204 . 6 ] R4S0RT 12 

$DIC : .FCTR [ 204 .6 JR4DCTI0N 13 

$SQ : .FCTR [204 , 7 JUTS0EE2 14 

STYPE: .FCTR [ 204 , € ] R4TYPREP- * ( [ 204 , S ] R5CHNGES . [ 204 . 6 JR4PERCNT ) 15 

: is 

; 17 

eLB: [ 1 , 1 ]RMS1 1M.0DL 18 

?LB : t 1 , 1 ] RMS 1 2X . ODL 19 

. END 20 


Figure 3-18. REP 4 Program Overlay Descriptor Language File 
(R4.0DL) 
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3.6 COMPONENT INFORMATION REPORT PROGRAM (REP5) 


3.6.1 INTRODUCTION 

The Component Information Report Program (REP5) produces a 
list of components and associated data for a given project. 
For each component, basic data from the Component Informa- 
tion File (CIF) , Halstead parameters computed from the basic 
data, and the change and error data retrieved from the CG 
intermediate file produced by the CG program (Section 3.5) 
are reported. Correlation coefficients between the various 
statistics presented are also given. 

3.6.2 PROGRAM STRUCTURE 
3 . 6 . 2 . 1 Files Accessed 

The REP5 program accesses two input files, one output file, 
and one scratch file, as described below. 


Input File Name 

[204,1] <PRJNAM> .CIF 
<PRJNAM>. CHN 

Output File Name 
<PRJNAM> . RP5 


Description 


CIF for the given project 

CG intermediate file containing 
change and error data produced by the 
CG program for the given project 

Description 

REP5 output report for the given 
project 


A scratch file is used by the REPS program to temporarily 
store data that will later be used to compute the correla- 
tion coefficient matrix. 


For these file names, <PRJNAM> is the name of the project 
selected by the user. 

3.6. 2. 2 Baseline Diagram 

Figure 3-19 is the baseline diagram for the REP5 program. 

The REP5 routine is the driver that obtains the project name 
and selected subsystem, reads the CG intermediate file and 
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CIF for the given project, computes the Halstead parameters, 
and writes the output report, REP 5 loops through the above 
process until a/'sz (control Z) is returned in response to a 
subsystem prefix prompt. 

3.6.3 SUBROUTINE/SUBSYSTEM DESCRIPTION 

The routines referenced by the REP5 program are grouped here 
by function. In each routine, the calling sequence vari- 
ables are grouped according to input, input and output (if 
any) , and output and appear in the calling sequence in that 
order. In the following descriptions, each group of vari- 
ables begins a new line. The calling sequence variables for 
the major REP 5 routines are described in Section 3. 6. 3. 4. 
Descriptions of the calling sequence variables for utility 
routines are not provided. In addition to the routines in 
this section, the REP5 program also uses the following sys- 
tem routines: DATE, SECNDS, and TIME. 

3 . 6 . 3 . 1 Process Data and Compute Statistics 

These five major routines obtain data from a given CIF and 
compute statistics for the output report. 

ROUTINE: COEF 

FUNCTION: Computes the correlation coefficient matrix for a 

given set of variables 

CALLING SEQUENCE: 

CALL COEF (I SCR AH, IREPF, NUM, IREC, TITLE) 

ROUTINE: CTYPE 

FUNCTION: Determines the function type of a component 

CALLING SEQUENCE: 

CALL CTYPE (ICTEXC, ICTFNR, ICTIO, KASGN , KCALL, KFMT, 
ITYPE) 
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ROUTINE: ESTIM 


FUNCTION: Computes the values of several Halstead parameter 

CALLING SEQUENCE: 

CALL ESTIM (ICTHIO, IETAl , IETA2 , NETA1 , NETA2 , 

IETA, NETA, LENGTH, I VOL, PRGLVL , ALNGLV, 
IEFORT, TOTIM, NBUGS , I VS TAR, STROUD, ERROR) 


ROUTINE : GETRPT 

FUNCTION: Extracts pertinent data from the CIF and writes 

it to the output report 

CALLING SEQUENCE: 

CALL GETRPT ( LUNDB , ITERMF, IREPF, ISCRAH, ICHNGF, 
PROJNM) 


ROUTINE: REP 5 

FUNCTION: Main routine of the REPS program, extracts data 

from the CIF and from the CG intermediate file, computes 
statistics, and writes the output report 

CALLING SEQUENCE: None 

3 . 6 . 3 . 2 File Open and Read Routines 

These two routines either open an indexed file or read rec- 
ords from a file. 

ROUTINE : CHNGES 

FUNCTION: Reads the CG intermediate file and returns the 

number of changes and errors for a given component name; if 
the component name is not found, the routine returns 999 for 
the output variables 

CALLING SEQUENCE: 

CALL CHNGES (ANAME, ICHNGF, 

NCHS , NERRS, TOTCH) 
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ROUTINE: REDCIF 


FUNCTION: Reads one record from the CIF and converts all 

data to internal format 

CALLING SEQUENCE: 

CALL REDCIF (LUNDB , 

PROJNO, CNAME , ICODE, PANV, MODFUN, SYSFUN, 
ORIGIN, NEXEC, NLINES , NCOMNT, IETAl, IETA2 , 
NETA1 , NETA2 , NIOVAR, MCCABE, NFUNCT , NIO, 
NASGN , NCALL , NFMT, EOF, ERROR) 

3 . 6 . 3 . 3 Routine Performing String Operations 
This routine performs a string operation. 

ROUTINE: ' MAKNAM 

FUNCTION: Concatenates the given strings to form a complete 

file name 

CALLING SEQUENCE: 

CALL MAKNAM (DISK, UIC, NAME, EXTENS , 

DSN) 

3 . 6 . 3 . 4 Variable Description 

The variables in the calling sequences of major REP5 rout- 
ines are described below. 


Name 


Type 

Description 

ALNGLV 


R* 4 

Language level 

ANAME 


R*8 

Component name 

ERROR 


L*1 

Error flag 

ICHNGF 


1*2 

Change and error data file (CG 
intermediate file) unit number 

ICTEXC 


1*2 

Number of executable statements 

ICTFNR 


1*2 

Number of function references 

ICTHIO 


1*2 

Number of input and output vari- 
ables for component 


3-106 


8818 



Name 


ICTIO 

IEFORT 

I ETA 

IETA1 

IETA2 

IREC 

IREPF 

ISCRAH 

ITERMF 

ITYPE 

I VOL 

IVSTAR 

KASGN 

KCALL 

KFMT 

LENGTH 

LUNDB 

NBUGS 

NCHS 

NERRS 

NETA 

NETA1 

NETA2 

NUM 

PRGLVL 

PROJNM ( 8 ) 

STROUD 

TITLE (10) 


Type Description 

1*2 Number of I/O statements 

1*4 Effort required 

1*2 Number of unique elements 

1*2 Number of unique operators 

1*2 Number of unique operands 

1*2 Total number of records in file 

1*2 Unit number associated with the 

REP 5 output report file 

1*2 Unit number associated with the 

scratch file 

1*2 Unit number associated with the 

terminal 

1*2 Component function type 

1*2 Program volume 

1*2 Potential volume 

1*2 Number of assignment statements 

1*2 Number of CALLS 

1*2 Number of FORMAT statements 

1*2 Predicted length 

1*2 Unit number associated with the CIF 

1*2 Predicted number of bugs 

1*2 Number of changes for the given 

component 

1*2 Number of errors 

1*2 Total number of elements 

1*2 Total number of operators 

1*2 Total number of operands 

1*2 Number of lines of data 

R*4 Program level 

L*1 Project name 

1*4 Stroud number (discriminations per 

hour ) 

R*8 Arrays of column titles 
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TOTCH 

TOTIM 


Name 


?.',Z£e 
1*2 
R* 4 


Description 

Total number of changes and errors 
Total programming time required 


3.6.4 TASK BUILD PROCEDURE 

3. 6. 4.1 Command Procedures 

The REP5 program can be generated from the source code by 
executing the command procedure R5GEN.CMD under UIC [204,6]. 
This command procedure references three command procedures-- 
R5FPP.CMD, R5FOR.CMD, and R5.TKB — all under UIC [204,6]. 
Figure 3-20 is a listing of R5GEN.CMD, the command procedure 
to precompile, compile, and task build the REP 5 program. 

The REP5 program is generated by entering the following 
command: 

@ [204,6]R5GEN 

3. 6. 4. 2 Overlay Structure 

The REP5 program is overlaid to reduce the memory space re- 
quirement. Figure 3-21 is a listing of the Overlay De- 
scriptor Language file, [204, 6]R5.0DL, needed to build the 
REP 5 program task image. The system libraries RMS11M.ODL 
and RMS12X.ODL are needed for the overlay. 
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^RSGEN.CMD 


1 
2 
3 

; COMMAND PROCEDURE TO PRECOMPILE, COMPILE AND TASK BUILD THE REP5 4 

; PROGRAM (P. LO 6/14/82) 5 

; 6 

; PRECOMPILE FORTRAN ROUTINES 7 

; 8 

®[204, 6]R5FPP.CMD 9 

; 10 

; ®R5FPP.CMD 11 

; 12 

; COMMAND PROCEDURE TO PRECOMPILE FORTRAN ROUTINES FOR REPS PROGRAM 13 

; (P. LO 6/14/82) 14 

: 15 

; FPP SY: [204,6 ]R5CHNGES 16 

; FPP SY : [ 204 , 6 ] R5C0EF 17 

; FPP SY : [ 204 , 6 ] R5CTYPE 18 

; FPP SY : [ 204 , 6 3 RSESTIM 19 

; FPP SY: [ 204 , 6 ] R5GETRPT 20 

; FPP SY: [204,6 ]R5REP5 21 

22 

; FPP SY: [204,7 JUTMAKNAM 23 

; FPP SY: [ 204 , 7 ]UTREDCI F 24 

; 25 

1 COMPILE FORTRAN ROUTINES 26 

; 27 

«[204, 6jR5F0R.CMD 28 

; 29 

; 0R5FOR.CMD 30 

; 31 

; COMMAND PROCEDURE TO COMPILE ALL FORTRAN ROUTINES FOR THE REPS 32 

PROGRAM (P. LO 6/14/82) 33 

34 

; FOR/ F4P/GB JECT : [ 204 . 6 ] R5CHNGES [204.6] R5CHNGES 35 

; FOR/F 4P/0B JECT : [ 204 , 6 ] R5C0EF [ 204 , 6 ] R5C0EF 36 

; F0R/F4P/0B JECT : [ 204 , 6 ] R5CTYPE [ 204 , 6 J R5CTYPE 37 

; FOR/ F4P /OBJECT : [ 204 , 6 ] R5EST IM [ 204 . 6 ]R5ESTIM 38 

; FOR/ F4P /OBJECT : [ 204 , 6 ] R5GETRPT [204,6 ] R5GETRPT 39 

; F0R/F4P/0B JECT : [ 204 , 6 ] R5REP5 [204.6] R5REP5 4 Q 

; 4i 

; FOR/ F4P/0B JECT : [ 204 . 7 jUTMAKNAM [ 204 , 7 ]UTMAKNAM 42 

; F0R/F4P/0B JECT : [ 204 , 7 JUTREDC I F [ 204 , 7 JUTREDC I F 43 

; 44 

; TASK BUILD THE REPS PROGRAM 45 

; 46 

TKB ® [ 204 , 6 ] R5 . TKB 47 

; 48 

; ®R5 . TKB 49 

50 

; • COMMAND PROCEDURE TO TASK BUILD THE COMPONENT INFORMATION REPORT 51 

; PROGRAM (REPS) 52 

; 53 

; [204,5 ]R5*[ 204.6 JR5.QDL/MP 54 


Figure 3-20. Task Generation Command Procedure for the 
REPS Program (R5GEN.CMD) 
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; 1 

i <SR5.0DL 

; OVERLAY STRUCTURE FOR THE COMPONENT INFORMATION REPORT PROGRAM 
; (REP 5 ) (P. LO S/ 14/82) 

•ROOT SROOT , OTSALL , RMSALL 

SROOT: . FCTR [ 204 , 6 ]R5REP5-RMSR0T-0'TSR0T-* (NAME . FORT ) 

NAME: .FCTR [ 204 , 7 ]UTMAKNAM 

FORT: .FCTR [ 204 . 6 ] R5GETRPT-* ( RCI F . COEF . CHNGS . EST . TYPE ) 

RCIF: .FCTR ( 204 , 7 ]UTREDCI F 11 

COEF: .FCTR ( 204 , 6 ] R5C0EF 12 

CHNGS: .FCTR ( 204 , 6 ] R5CHNGES '13 

EST: .FCTR [ 204 . S ] R5ESTIM 14 

TYPE: .FCTR [ 204 , 6 ] R5CTYPE 15 

: is 

: 17 

?LB : [ 1 , 1 ] RMS 1 1M 18 

®LB: (1.1 ]RMS12X 19 

. END 20 


Figure 3-21. REP 5 Program Overlay Descriptor Language 
File (R5.0DL) 
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3.7 GRAPHING PROGRAM (GQ) 

3.7.1 INTRODUCTION 

The Graphing Program (GQ) reads an external data file con- 
taining a set of points and produces a graph of the data. 

It also optionally fits a polynomial of degree less than or 
equal to 10 to the given set of points and computes various 
associated statistics. 

3.7.2 PROGRAM STRUCTURE 

3. 7. 2.1 Files Accessed 

The GQ program accesses two input files and one output file 
as described below. 

Input File Name Description 

[204,6]GQ.NL GQ input parameters file 

<PRJNAM> . XXX External file containing project name, 

X-axis title, Y-axis title, and a set of 
X, Y values for the points to be plotted. 
The file name for the external data file 
is of the form <PRJNAM>.XXX if produced 
by the PF or the WK program, where 
<PRJNAM> is the name of the project for 
which the program was executed and XXX 
denotes the type of data (Sections 2.2.3 
and 2.4.3). If generated by the user, 
the file name is arbitrary. 

Output File Name Descr iption 

FOROXX.DAT Output graph and statistics report (XX is 

the output unit number specified in the 
GQ input parameters file) . 

3. 7. 2. 2 Baseline Diagram 

Figure 3-22 is the baseline diagram for the GQ program. The 
GRFDRV routine is the main driver. It reads the GQ input 
parameters file, initializes the user's terminal, reads the 
external data file, and produces a graph of the given data. 
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Figure 3-22. Baseline Diagram for the Graphing Program 








3.7.3 SUBROUTINE/SUBSYSTEM DESCRIPTION 

The subroutines forming the GQ program are grouped here by 
function. in each routine, the calling sequence variables 
are grouped according to input, input and output (if any) , 
and output and appear in the calling sequence in that or- 
der. in the following descriptions, each group of variables 
begins a new line. The calling sequence variables for the 
major GQ routines are described in Section 3. 7. 3. 6. De- 
scriptions of the calling sequence variables for utility 
routines are not provided. In addition to the routines de- 
scribed in this section, the GQ program also uses the fol- 
lowing system routines: CLEAR, DATE, DISCKP, GETLUN , TIME, 

WAIT, and WTQIO. 

3 . 7 . 3 . 1 Process pata and Compute Statistics 

These 13 major routines obtain data from the external data 
file, compute statistics, and produce the graph. 

ROUTINE: FLAG (LOGICAL FUNCTION) 

FUNCTION: Sets a given character to the flag character if 

the given character is blank 

CALLING SEQUENCE: 

FLAG (CHAR, QFLAG) 

ROUTINE: GRFDRV 

FUNCTION: Main routine of the GQ program, reads a file con- 

taining a set of points and produces a graph of the data 

CALLING SEQUENCE: None 

ROUTINE: GTNOIS 

FUNCTION: Computes a noise value from the data points 
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CALLING SEQUENCE: 


CALL GTNOIS (NPTS,' QFLAG, Y, 
QCHARS , 

AVNOIS , ERROR) 


ROUTINE : INVERT 

FUNCTION: Inverts a matrix in place and solves a set of 

simultaneous linear equations 

CALLING SEQUENCE: 

CALL INVERT (A, B, N f L, 

C, IER) 


ROUTINE : LOOP 

FUNCTION: Computes the minimum chi square and rejects data 

points outside a specified factor times the standard devia- 
tion; also prints a graph and statistics as desired 

CALLING SEQUENCE: 

CALL LOOP (ADEBUG, DDATE, DIFFAC, IOFFSE, IOP, I PAGE, 
IPARTl , I PART 4 , IPR, IWID, KCYCLE , KXSHFT , 
MCOIN , MLINES , MXFRAC , MXITER, MXORDR, NAVI, 
NAV2 , NPTS, NSTREK , PROJ, QBAND , QBEST, 
QCHARS, QCHR, QCUM, QCYCLE, QFLAG, QGRAPH , 
QINTG, QMARKR, QNL, QOMITO, QPRINT, QRESCN , 
QSCALX , QSCREN, QSTATS, QTRUNC , RES, RPTITL, 
SIGFAC , TOL, X, XFACTR, XH, XTITLE, Y, YDFAC , 
YFACTR, YH, YLOW, YTITLE, 

CHI ONE, 

COEF , MCO, STDV) 


ROUTINE : POLYFT 

FUNCTION: Performs a least-squares polynomial fit to a set 

of data points 
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CALLING SEQUENCE: 

CALL POLYFT (X, Y f NPTS, MCOEF , TOL, QFLAG, QCHARS , 

CHI, COEF , RES, STDV, SUMABS, SUMMR2 , SUMR2 
XMEAN , IER) 


ROUTINE r RESCAN 

FUNCTION: Checks to determine if points should be flagged 

or unflagged 

CALLING SEQUENCE: 

CALL RESCAN (COEF, MCO, NPTS, QCHRl , QFLAG, RES, STDV, 
X, Y, 

QCHARS ) 


ROUTINE: SCAN! 

FUNCTION: Performs a preliminary scan on the data and flag 

those points obviously out of a reasonable range 

CALLING SEQUENCE: 

CALL SCANl (DIFFAC , NPTS, QCHRl, QFLAG, Y, NSTREK , 
QCHARS , 

AVNOIS , ERROR) 


ROUTINE: SCAN 2 

FUNCTION: Cycles through all points (ignoring previously 

flagged points) and computes the average Y-values for the 
previous NPTS points and the succeeding NPTS points; flags 
the current point if the difference between its Y-value ana 
these averages exceeds a specified tolerance 

CALLING SEQUENCE: 

CALL SCAN 2 (AVNOIS, MXFRAC, MXITER, NAVI, NAV2 , NPTS, 
NSTREK, QCHRl, QFLAG, Y, YDFAC , 

QCHARS , 

YDFAC 2, ERROR) 
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ROUTINE: SCRDIF 

FUNCTION: Computes the average difference in Y-vaiues for 

all data points and flags data points whose difference from 
the previous point and subsequent point varies more than a 
given factor times the average difference 

CALLING SEQUENCE: 

CALL SCRDIF (DIFFAC, MXFRAC, MX I TER, NAVI, NAV2 , NPTS, 
NSTREK , QCHRl, QFLAG, Y, YDFAC , 

QCHARS , 

AVNOIS , YDFAC 2 , ERROR) 

ROUTINE: TF (LOGICAL FUNCTION) 

FUNCTION: Returns a value of .TRUE, if the input number is 

not zero 

CALLING SEQUENCE: 

TF (N) 


ROUTINE : WRKDAT 

FUNCTION: Takes the given x and Y arrays and manipulates 

and scales the data as desired by the given input param- 
eters; also computes several statistics related to the 
standard deviation 

CALLING SEQUENCE: 

CALL WRKDAT (ADEBUG, CHIONE, DIFFAC, IOFFSE, I PART 4 , 

MCO, MXFRAC, MXITER, NAVl , NAV2 , NSTREK, 
QBAND , QCHR, QFLAG, QOMITO, QSCALX, QSCREN, 
QTRUNC , SIGFAC , TOL, YDFAC, YFACTR , 

NPTS, QCHARS, QMARKR, X, Y, 

AFRAC, AREA! , AREA2, AVNOIS, CHI, COEF, 

K ZEROS, NPTPLT , NPTREJ , RES, STDV, SUMABS, 
SUMMR2 , SUMR2, XFACTR, XMEAN , YDFAC 2, ERROR) 
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ROUTINE: YVALUE (REAL FUNCTION) 

FUNCTION: Computes the Y-value associated with a given 

X-value for the polynomial with the given coefficients and 
degree 

CALLING SEQUENCE: 

YVALUE (COEF , MCO, XVAL) 

3. 7. 3. 2 Print a Graph and Statistics Report 

These five routines produce a graph and statistics chart of 
the given data. 

ROUTINE ; GRAPH 

FUNCTION: Generates a one-page Cartesian printer plot for 

any set of data with automatic scaling 

CALLING SEQUENCE: 

CALL GRAPH (IOPT, IPR, IWID, KXSHFT, MLINES, N, N2, 

QCHARS , QMARKR , QXTITL, QYTITL, X, XH, XL, Y, 
YH, YL,) 

LINES) 


ROUTINE : HEADR2 

FUNCTION: Prints a one-line title for each report page that 

includes the date and project name 

CALLING SEQUENCE: 

CALL HEADR2 ( IRPTF, PRJNAM, RPTITL, 

IPAGE) 


ROUTINE : PHSRPT 

FUNCTION: Prints phase date information on the first page 

of the graphing report 

CALLING SEQUENCE: 

CALL PHSRPT (IPR, NPTS , QMARKR, TlO) 
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ROUTINE : REPORT 

FUNCTION: Produces a graph and statistical chart of the 

given data 

CALLING SEQUENCE: 

CALL REPORT ( QB AND , QBEST, QCUM, QCYCLE, QGRAPH , QINTG, 

QNL, QOMITO, QPRINT, QSCREN , QSTATS , QTRUNC 
QRESCN) 


ROUTINE: REPOR2 

FUNCTION: An ENTRY point of routine REPORT 

CALLING SEQUENCE: 

CALL REPOR2 (AFRAC, AREAl, AREA 2 , AVNOIS, CHI, COEF, 

DDATE , D IFF AC , IOFFSE, IOPT, IPAGE, I PARTl , 
IPART4, I PR, IRES, IWID, KCYCLE , KXSHFT, 

K ZEROS , MCO, MLINES , MXFRAC , MX I TER, MXORDR 
NAVI, NAV2 , NPTPLT , NPTREJ, NPT'S , NSTREK, 
PROJ , QCHARS , QFLAG , QMARKR , RES, RPTITL, 
SIGFAC, STDV , SUMABS, SUMMR2 , SUMR2 , TOL, X 
XFACTR, XH, XMEAN , XTITLE , Y, YDFAC, YDFAC2 
YFACTR, YH, YLOW, YTITLE) 

3. 7. 3. 3 Obtain Data From Terminal or External Data Set 

These four routines obtain information from a user's re- 
sponse to a terminal prompt or from an external data set. 

ROUTINE : GETFLD 

FUNCTION: Displays the given text on the terminal and 

prompts for a character string 

CALLING SEQUENCE: 

CALL GETFLD (TEXT, EXTFIL, FLDLEN, 

TERMNL, EOFTTY , ERROR, 

FIELD) 
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ROUTINE: GETNL2 

FUNCTION: Reads a sequential file- and fills a parameter 

array 

CALLING SEQUENCE: 

CALL GETNL2 (NLDSN, NLFIL, MAXNL, 

NL, ERROR) 


ROUTINE : GETOPT 

FUNCTION: Retrieves user options for the current run 

CALLING SEQUENCE: 

CALL GETOPT (IPR, IWID, MCO, MLINES , QCHR, QDSN, QEOF) 
ROUTINE : RDPLT3 

FUNCTION: Reads an external data file for x and y values 

and x and y axis titles 

CALLING SEQUENCE: 

CALL RDPLT3 (IPLTF, PLTNAM, EXTFIL f MAXREC, QCUM f QMAKEX , 
TERMNL , 

CHAR, PROJ, RPTITL, PIETTL , X, Y, NCOUNT, 

XHI , XTITLE , YHI , YTITLE, MARKER, DDATE , 
FACTRY, EOFTTY, ERROR) 

3. 7. 3. 4 Routines for String Movement or comparison 

These five routines deal with string movement or comparison. 

ROUTINE: BLANK 

FUNCTION: initializes an array to blanks 

CALLING SEQUENCE: 

CALL BLANK (ARRAY, NUM) 
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ROUTINE: CHRINT 


FUNCTION: Converts the given string to integers in 1*2 for- 

mat 

CALLING SEQUENCE: 

CALL CHRINT (CHARS, NCHAR , 

I2NUM, ERROR) 


ROUTINE : MOVE 

FUNCTION: Moves a given number of bytes from one address to 

another 

CALLING SEQUENCE: 

CALL MOVE (A, B, LEN) 

ROUTINE: NAME 3 

FUNCTION: Concatenates the given strings to form, a complete 

file name 

CALLING SEQUENCE: 

CALL NAME 3 (DISK, UIC, NAME, EXTENS, 

DSN) 


ROUTINE: WHERE 

FUNCTION: Locates the given characters in the given string 

CALLING SEQUENCE: 

CALL WHERE (CHAR, STRING, LEN, 

LOC, FOUND) 

3. 7. 3. 5 Plot Routines 

These 12 routines deal with plotting the graph on the ter- 
minal or graphing equipment. 
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ROUTINE: KCHRAT (LOGICAL FUNCTION) 

FUNCTION: Obtains the character at the given point 

CALLING SEQUENCE: 

KCHRAT (X, Y) 

ROUTINE : KEND 

FUNCTION: Finishes production of a graph and prints the 

developed grid 

CALLING SEQUENCE: 

CALL KEND (LINES) 

ROUTINE: KLINE 

FUNCTION: Writes the given character string to the current 

file, terminal, or IIS graphics device 

CALLING SEQUENCE: 

CALL KLINE (X, Y, DIR, LEN, CHARS) 

ROUTINE: KSTART 

FUNCTION: Initializes the screen or IIS graphics device and 

a grid for a plot 

CALLING SEQUENCE: 

CALL KSTART 

ROUTINE: SCALE 

FUNCTION: Chooses the best scale for plotting any set of 

data 

CALLING SEQUENCE: 

CALL SCALE (XMIN, XMAX, NMAX, 

XI, DX, NX, NDECX, NDIGX) 
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ROUTINE : TBLINK 


FUNCTION: Turns on the blink function of the VT100 terminal 

CALLING SEQUENCE: 

CALL TBLINK 

ROUTINE : TCLEAN 

FUNCTION: Finishes the production of a graph and prints the 

developed grid 

CALLING SEQUENCE: 

CALL TCLEAN (QGRID, XMAX, YMAX, LINES) 

ROUTINE : TCLEAR 

FUNCTION: Clears the terminal or IIS graphics device 

CALLING SEQUENCE: 

CALL TCLEAR 

ROUTINE: UNIT 

FUNCTION: Initializes the terminal in preparation for 

graphics 

CALLING SEQUENCE: 

CALL TINIT 

ROUTINE : TNOBLI 

FUNCTION: Turns off the blink option of the VTlOO terminal 

CALLING SEQUENCE: 

CALL TNOBLI 
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ROUTINE: TPOINT 


FUNCTION: Writes the given characters starting at the given 

point 

CALLING SEQUENCE: 

CALL TPOINT (X, Y , DIR, LEN, CHARS) 

ROUTINE: TTERM 

FUNCTION: Changes the default terminal number 

CALLING SEQUENCE: 

CALL TTERM ( JTERM) 

3. 7. 3. 6 Variable Description 

The variables in the calling sequences of major GQ routines 


are described 

below. 


Name 

Type 

Description 

ADEBUG (80) 

1*2 

Debug array 

AFRAC 

R*4 

Area under computed curve divided by 
area under actual data 

AREAl 

R*4 

Area under computed curve 

AREA 2 

R*4 

Area under actual data (including 
flagged points) 

AVNOIS 

R*4 

Average noise value 

CHAR 

L*1 

A given character 

CHI 

R*8 

Chi square 

CHI ONE 

L*1 

Flag indicating if first attempt to 
fit polynomial 

COEF(IO) 

R*8 

Coefficients of fit 

DDATE (9) 

L*1 

Date of data 

DIFFAC 

R*4 

Difference factor 

ERROR 

L*1 

Error flag 

IOFFSE 

1*2 

Parameter that forces start and end of 
curve fit to data to 0, if 1; if 0, 
does not force curve to 0 
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Name 


IOPT 

I PAGE 
I PARTI 
I PART 4 

IPR 

IRES 

IWID 

K CYCLE 

KXSHFT 
K ZEROS 

MCO 

MCOIN 

MLINES 

MXFRAC 

MXITER 

MXORDR 

NAVI 

NAV2 

NPTPLT 

NPTREJ 

NPTS 

NS TREK 

PROJ ( 8 ) 
QBAND 

QBEST 

QCHARS 

(NPTS) 


Type Description 

1*2 Parameter to plot count of overlapping 

points, if 1; if 0, does not plot count 

1*2 Current page number 

1*2 Maximum number of points allowed 

1*2 Size of X, Y, and character arrays 

(4 * I PARTI) 

1*2 Output unit number 

1*2 Number of reject cycle 

1*2 Width of graph in columns, including 

titles 

1*2 Number of times to cycle through data 

rejecting flagged points 

1*2 Column to start graph 

1*2 Number of trailing zero data points 

flagged 

1*2 Order of fit desired 

1*2 Minimum order of polynomial to be fit 
to data 

1*2 Number of rows allowed in graph 

R*4 Maximum fraction of flagged points 

1*2 Maximum number of iterations 

1*2 Maximum order of polynomial to be fit 

to data 

1*2 Number of preceding points to consider 

1*2 Number of succeeding points to consider 

1*2 Number of points plotted 

1*2 Number of points flagged (rejected) 

1*2 Number of data points 

1*2 Maximum number of consecutive flagged 

points allowed 

L*1 Project name 

L*1 Flag indicating whether to plot band 

around fitted curve 

L*1 Flag indicating whether program is to 

find polynomial of best fit 

L*1 Array of characters to be plotted 
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Name 


QCHR ( 4 ) 

QCHRl 

QCUM 

QCYCLE 

QDSN(27) 

QEOF 

QFLAG 

QGRAPH 

QINTG 

QMARKR 
(I PARTI) 

QNL 

QOMITO 

QPRINT 

QRESCN 

QSCALX 

QSCREN 

Q STATS 
QTRUNC 
RES (NPTS) 


Type Description 

L*1 Characters to be used: 

= l f Data points 

- 2, Upper edge of band around curve 

= 3, Lower edge of band around curve 

= 4, Curve fit to data points 

L*1 Data point character for unflagged 

points 

L*1 Flag indicating whether to accumulate 

data as it is read in. 

L*1 Flag indicating whether to print graph 

report each time through reject cycle 

L*1 Name of file to be read 

L*1 End of file flag 

L*1 Flag character 

L*1 Flag indicating whether to print graph 

page 

L*1 Flag indicating whether to print data 

as integers on last page of report 

L*1 Array of characters to be printed at 

bottom of graph (phase characters) 

L*1 Flag indicating whether to print input 

parameter (first) page of report 

L*1 Flag indicating whether to ignore zero 

data points 

L*1 Flag indicating whether to print graph 

report each cycle through curve fitting 
process 

L*1 Flag indicating whether to recheck 

editing of data and fitting of poly- 
nomial 

L*1 Flag indicating whether to scale x data 

points 

L*1 Flag indicating whether to screen data 

points relative to preceeding and suc- 
ceeding points 

L*1 Flag indicating whether to print sta- 

tistics page of report 

L*1 Flag indicating whether to truncate 

zero data points at end of array 

R*4 Residuals from curve fit to data 
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Name 

Type 

Description 

RPTITL ( 40 ) 

L* 1 

Report title 

SIGFAC 

R*4 

Sigma factor used to plot band around 
curve fit to data 

STDV 

R* 8 

Standard deviation 

SUMABS 

* 

00 

Sum of absolute residuals 

SUMMR2 

R*8 

Sum of minimum residuals squared 

SUMR2 

* 

CO 

Sum of residuals squared 

TOL 

R*4 

Tolerance of data 

TlO 

1*2 

Tab location of printed information 

X(NPTS) 

R*4 

X data values 

XFACTR 

R*4 

X scaling factor 

XH 

R*4 

X axis maximum 

XMEAN 

R*8 

Mean Y value 

XTITLE (40) 

L* 1 

X axis title 

XVAL 

R*4 

X value 

Y(NPTS) 

R*4 

Y data values 

YDFAC 

R*4 

Y delta factor 

YDFAC2 

R*4 

Final prescan boundary factor 

YFACTR 

R*4 

Y scaling factor 

YH 

R*4 

Y axis maximum 

YLOW 

R*4 

Y axis minimum 

YTITLE ( 40 ) 

L* 1 

Y axis title 

3.7.4 TASK 

BUILD 

PROCEDURE 


3 . 7 . 4 . 1 Command Procedures 

The GQ task can be generated from the source code by execut- 
ing the command procedure GQGEN.CMD under UIC [204,6] . This 
command procedure references three command files — GQFPP.CMD, 
GQFOR.CMD, and GQ.TKB--all under UIC [204,6] . Figure 3-23 
is a listing of GQGEN.CMD, the command procedure to pre- 
compile, compile, and task build the GQ program. The GQ 
program is generated by entering the following command: 

@ [204,6] GQGEN 
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®GQGEN . CMD 


COMMAND PROCEDURE TO TASK BUILD THE GRAPHING PROGRAM (GO) FROM 
; FORTRAN SOURCE (P. LO 7/8/82) 

: PRECOMPILE FORTRAN SOURCE 

®[ 204,6 1GQFPP.CMD 

; ^GQFPP.CMD 

; COMMAND PROCEDURE TO PRECOMPILE FORTRAN ROUTINES FOR THE GRAPHING 
PROGRAM (GO) (P. LO 7/6/82) 

; ROUTINES WITH PREFIX GO 

; FPP SY; [204,6 JGQFLAG 
; FPP SY : [ 204 , 6 jGQ.GETOPT 
; FPP SY : [ 204 , 6 ] GOGRF DR V 
: FPP SY: [204,6 1GGGTN0IS 
; FPP SY: [204,6 JGQLOOP 
; FPP SY: [204,6 jGOPHSRPT 
: FPP SY : [204,6 1G0REP0RT 
; FPP SY : [204 ,6 ] GORE SC AN 
: FPP SY: [204,6 JG0SCAN1 
: FPP S Y : [ 204 , 6 ] G0SCAN2 
: FPP SY: [204,6 JGOSCRDIF 
; FPP SY :[ 204,6 IGOWRKDAT 
; FPP SY: [204,6 lGQYVALUE 

; ROUTINES WITH PREFIX SK 

; FPP SY : [204 , 7 ] SKKCHRAT 
; FPP SY: [204,7 ISKKEND 
; FPP SY: [204,7 JSKKLINE 
; FPP SY : 1 204 , 7 ]$KKST ART 

; ROUTINES WITH PREFIX ST 

; FPP SY : [204,7 ] STTBLINK 
; FPP SY : [ 204 , 7 J STTCLEAN 
?FPP SY : [ 204 , 7 ] 5TTCLEAR 
; FPP SY : [ 204 , 7 J STTINlT 
: FPP SY : [204 , 7 JSTTNOBLI 
; FPP SY : [ 204 , 7 ] STTPOINT 
:FPP SY : [ 204 , 7 ] STTTERM 

: ROUTINES WITH PREFIX UT 

: FPP SY: [204, 7]UTBLANK 
; FPP SY : [ 204 , 7 JUTCHRINT 
; FPP SY: [204,7 JUTGETFLO 
; FPP SY: [204,7 JUTGETNL2 
; FPP SY: [204.7 JUTGRAPH 
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Figure 3-23 • GQ Task Generation Coitimand Procedure 
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;F PP SY : [ 204 , 7 JUTHEADR2 
;FPP SY : [204, 7 JUT INVERT 
;FPP SY: [204,7 JUTMOVE 
;FPP SY: [204,7 JUTNAME3 
:FPP SY : [204,7 juTPOLYFT 
: FPP SY: [204,7 ]UtR0PLT3 
; FPP SY: [204,7 ]UTSCALE 
; FPP SY: [204,7 JUTTF 
; FPP SY: [204,7 lUTWHEPE 

; COMPILE FORTRAN SOURCE 

^[204, 6] GQFOR.CMD 

; «GOFOR . CMD 

COMMAND PROCEDURE TO COMPILE FORTRAN ROUTINES FOR THE GRAPHING 
PROGRAM (GO) (P, LQ 7/6/82) 

; ROUTINES WITH PREFIX GO 

; F0R/F4P/0B JECT : [ 204 , 6 JGQFLAG [ 204 . 6 ] GOFLAG 
; F0R/F4P/0BJECT : [ 204 , 6 3 GOGE TOPT [204 , 6JGQGET0PT 
: FOR/ F4P/0B JECT : [ 204 , € JGOGRFDRV [ 204 , 6 J GQGRFDRV 
; FOR/ F4P/0B JECT : [ 204 , 6 JGQGTNOI S [ 204 , 6 JGQGTNOI S 
; F0R/F4P/0BJECT : [ 204 . 6 ]GQLOOP [ 204 . 6 JGQLOOP 

; F0R/F4P/0B JECT : [ 204 , 6 JGOPHSRPT [ 204 , 6 JGOPHSRPT 
; FOR/ F4 P/OB JECT : [ 204 , 6 ] GOREPORT [ 204 , 6 ]GQREPORT 
; F0R/F4P/0B JECT : [ 204 . 6 ] GORE SCAN [ 204 , 6 ] GORE SCAN 
; FOR/ F 4P/ OBJECT : [204 , 6 ] GOSCAN 1 [ 204 , 6 ] GQSC AN 1 

; FOR /F4P/0B JECT : [204 . 6 ] GQSCAN2 [204,6 ] G0SCAN2 
; FOR/F 4P /OBJECT : [ 204 , 6 ] GOSCRD IF [204,6 ]GOSCRO I F 
; F0R/F4P/0B JECT : [ 204 , 6 ]GQWRKDAT [ 204 , 6 ]GQWRKDAT 
; F0R/F4P/0B JECT : [ 204 , 6 ]GOY VALUE [ 204 ,6 ]GQY VALUE 

; ROUTINES WITH PREFIX SK 

: F0R/F4P/0B JECT : [ 204 . 7 ] SKKCHRAT [204.7] SKKCHRAT 
; F0R/F4P/0B JECT : [ 2Q4 . 7 ] SKKEND [ 204 . 7 ] SKKEND 

VF0R/F4P/0BJECT: [204 . 7 ]SKKLINE [ 204 , 7 ] SKKL INE 
; F0R/F4 P/OB JECT : [ 204 . 7 ] SKKST ART [ 204 . 7 ] SKKST ART 

:* ROUTINES WITH PREFIX ST 

; F0R/F4P/ OBJECT : [ 204 , 7 ] STTSL INK [204, 7]STTBLINK 
; F0R/F4P/0B JECT : [204 , 7 ] STTCLEAN [ 204 , 7 JSTTCLEAN 
; F0R./F4P/0BJECT : [ 204 , 7 ] STTCLEAR [ 204 , 7 ] STTCLEAR 
; F0R/F4P/0B JECT ; [ 204 . 7 ] STT INI T [ 204 , 7 ] STTINJT 
; F0R/F4P/0B JECT : [ 204 , 7 ] STTN08L I [ 204 , 7 ] STTNOBL I 
; F0R/F4P/0BJECT : [204 , 7]STTP0INT [204 , 7]STTP0INT 
; F0R/F4P/0B JECT : [ 204 , 7 ] STTTERM [ 204 , 7 ] STTTERM 

: ROUTINES WITH PREFIX UT 

; F0R/F4P/0B JECT: [204,7 lUTBLANK [ 204 , 7 jUTBLANK 
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Figure 3-23 . GQ Task Generation Command Procedure 
(GQGEN.CMD) (2 of 3) 
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• ; FOR/ F4P/0B JECT : [ 204 , 7 ]UTCHRINT [204 , 7 JUTCHRINT 111 

: F0R/F4P/0B JECT : [ 204 , 7 ]UTGETFLD [ 204 . 7 ]UTGETFLD 112 

;F0R/F4P/0SJECT: [204,7 ]UTG£TNL2 [204 , 7 ]UTGETNL2 113 

; FOR /F4P/0B JECT : [204 , 7 ]UTGRAPH [204 , 7 ]UTGRAPH 114 

; F0R/F4P/0BJECT : [ 204 , 7 JUTHEADR2 [ 204 . 7 JUTHE ADR2 115 

; FOR/ F4P/0B JECT : [ 204 , 7 ]UT INVERT [ 204 , 7 [UTINVERT 116 

; F0R/F4P /OBJECT : [ 204 , 7 JUTMOVE [ 204 , 7 ]UTMOVE 117 

; F0R/F4P/0B JECT : [ 204 , 7 ]UTNAME3 [ 204 . 7 JUTNAME3 118 

;F0R/F4P/0BJECT: [204,7 1UTP0LYFT [204 . 7 JUTPOLYFT 119 

; F0R/F4P/0BJECT : [ 204 , 7 ]UTRDPLT3 [ 204 . 7 ]UTRDPLT3 120 

;F0R/F4P/0BJECT: [204,7 3UTSCALE [ 204 , 7 ]UTSCALE 121 

; F0R/F4P/0B JECT : [204 , 7 ]UTTF [204.7]UTTF 122 

;F0R/F4P/0BdECT :[ 204,7 ]UTWHERE [ 204 .7 JUTWHERE 123 

; 124 

; ' COMPILE ASSEMBLER ROUTIME 125 

; 126 

MAC/OBJECT': [204.7]VT [204,7]VT 127 

; 128 

; BUILD THE GO TASK 129 

; 130 

TKB ® [ 204 , 6 ] GO . TKB 131 

; 132 

; ®G0 . TKB 133 

; 134 

; COMMAND PROCEDURE TO TASK BUILD THE GRAPHING PROGRAM (GO) 135 

: 136 

; [ 204 , 5 ] GO* [ 204 , 6 ] GO/MP 137 

;UNITS=25 138 


Figure 3-23. GQ Task Generation Command Procedure 
(GQGEN.CMD) (3 of 3) 
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3 , 7 . 4 . 2 Overlay Structure 

The GQ program is overlaid to reduce the memory space re- 
quirement. Figure 3-24 is a listing of the Overlay De- 
scriptor Language file, [204,6] GQ.ODL, needed to build the 
GQ program task image. 
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; ^GQ . ODL 2 

•' 3 

; OVERLAY DEFINITION FOR THE GRAPHING PROGRAM (GO) 4 

; 5 

. ROOT SROOT-* ( $NL . SORT , SLOOP- ( SWRK , $RPT ) . SRE5C ) Q 

$ROOT : . FCTR [204 , 6 JGQGRFDRV- [ 204 , 7 ]UTTF -SR0T1 7 

SR0T1: .FCTR [ 204 , 6 JGQFLAG -$R0T6 8 

$R0T6 : . FCTR [204 . 7 ] 5TTBLINK- [ 204 , 7 ] STTCLEAN- [204 , 7 ] STTCLEAR-SR0T7 9 

$R0T7 : .FCTR [ 204 , 7 ]STTINIT - [ 204 , 7 ] STTNOBLI - [ 204 , 7 ]STTP0INT-$R0T8 10 

SR0T8: .FCTR [ 204 , 7 ] STTTERM -$R0T9 t1 

$R0T9: .FCTR $ROT10 12 

$ROT 10: .FCTR £ 204 « 7 ]UTMOVE - [ 204 , 7 ] UTNAME3 - [ 204 , 7 JUTBLANK -SR0T11 13 

SR0T11: .FCTR [ 204 ... 7 jUTWHERE - [ 204 7 ]UTGETFLD-$ROT 12 14 

SR0T12: .FCTR [204 , 7 ]UTCHRI:!SIT-$ROT 13 15 

SR0T13: .FCTR [ 204 , 7 ]UTRDPLT3 16 

; 17 

SNL: .FCTR [ 204 , 7 ]UTGETNL2 18 

; 19 

$OPT: .FCTR [ 204 , 6 ] GOGETOPT 20 

: 21 

SLOOP : .FCTR [ 204 , 6 JGOLOOP 22 

: 23 

SWRK: .FCTR [ 204 . 6 ]GQWRKDAT-( $WA , $WB ) 24 

SWA : . FCTR [ 204 . 7 ]UTPQLYFT-[ 204 , 7 JUT INVERT 25 

SWB: .FCTR [ 204 , € jGOSCRDI F-( SWC , $WD ) 26 

SWC: .FCTR [ 204 , 6 JG0SCAN1 - [ 204 , 6 JGOGTNOIS 27 

SWO: .FCTR [ 204 , 6 JG0.SCA.N2 28 

' 2 ° 

$RPT : . FCTR [ 204 . 6 ] GORE PORT - ( $RA , $R8 , $RC ) 30 

$RA: .FCTR [ 204 . 7 ]UTHEADR2 3, 

SRB: .FCTR [ 204 . 6 ]GQPHSRPT 32 

SRC: .FCTR [ 204 . 7 JUTGRAPH - [ 204 . 7 JUTSCALE -$RC2 33 

SRC2: .FCTR 1204. 7 ]VT -$RC3 

SRC3: .FCTR [ 204 . 7 ] SKKSTART - [ 204 . 7 J SKKLINE - [ 204 . 7 ] SKKCHRAT-SRC4 35 

SRC4 : .FCTR [204,7]SKKEND 3e 

; 37 

SRESC : .FCTR [ 204 . 6 ]GORESCAN- [ 204 . 6 ]GQYVALUE 38 

! 39 

■ END 40 


Figure 3-24. GQ Program Overlay Descriptor Language File 
(GQ.ODL) 


3-132 



3.8 FORM COUNTER PROGRAM (NT) 


3.8.1 INTRODUCTION 

The Form Counter Program (NF) produces a report containing 
counts of forms in the SEL data base files for a given proj- 
ect. Counts are given by form type and programmer for the 
following types of forms: Change Report Form (CRF) , Compo- 

nent Summary Form (CSF) , Component Status Report (CSR) , Run 
Analysis Form (RAF) , and Resource Summary Form (RSF) . 

3.8.2 PROGRAM STRUCTURE 


3.8. 2.1 Files Accessed 

The NF program accesses eight input files and one output 
file as described below. 


Input File Name 

[204.1] ENCODE. HOP. 

[204 . 1] EST.HDR 

[204.1] HEADER. HDR 

[204.1] <PRJNAM> . CRF 

[204.1] <PRJNAM> . CSF 

[204.1] <PRJNAM> . CS R 

[204.1] <PRJNAM> . RAF 

[204.1] <PRJNAM> . RSF 


Description 

Encoding Dictionary (ENC) File 
EST file 
HDR file 

CRF file for the given project 
CSF file for the given project 
CSR file for the given project 
RAF file for the given project 
RSF file for the given project 


Output File Name Description 

<PRJNAM> .NF Output report for the given project 

In these file names, <PRJNAM> is the name of the project 
selected by the user. 


3. 8. 2. 2 Baseline Diagram 

Figure 3-25 is the baseline diagram for the NF program. The 
NFORMS routine is the main driver. It obtains the project 
name; counts all forms on the CRF, CSF, CSR, RAF, and RSF 
files; and then produces a report of form counts for the 
given project. 
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Figure 3-25. Baseline Diagram for the Form Counter Program (NF) 
















3.8.3 SUBROUTINE/SUBSYSTEM DESCRIPTION 

The routines forming the NF program are grouped here by 
function. in each routine, the calling sequence variables 
are grouped according to input, input and output (if any) , 
and output and appear in the calling sequence in that 
order, in the following descriptions, each group of vari- 
ables begins a new line. The calling sequence variables for 
the major NF routines are described in Section 3. 8. 3. 8. 
Descriptions of the calling sequence variables for utility 
routines are not provided. In addition to the routines de- 
scribed in this section, the NF program also uses the fol- 
lowing system routines: DATE, ERRSET, SECNDS , and TIME. 

3. 8. 3.1 Process Data and Count Forms 

These seven major routines count all forms on the data base 
in each file for a given project, 

ROUTINE : CRF 

FUNCTION: Totals all CRFs 

CALLING SEQUENCE: 

CALL CRF (PROJCT, 

ERROR, NPROG , PROG, 

NCRF) 


ROUTINE: CSF 

FUNCTION: Totals all CSFs 

CALLING SEQUENCE: 

CALL CSF (PROJCT, 

ERROR, NPROG, PROG, 
NCSF) 

ROUTINE: CSR 

FUNCTION: Totals all CSRs 
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CALLING SEQUENCE: 


CALL CSR (PROJCT, 

ERROR, NPROG , PROG, 

NCSR) 

ROUTINE : NFORMS 

FUNCTION: Main routine of the NF program, counts all forms 

on the data base in each file for the given project 

CALLING SEQUENCE: None 

ROUTINE : RAF 

FUNCTION: Totals all RAFs 

CALLING SEQUENCE: 

CALL RAF (PROJCT, 

ERROR, NPROG, PROG, 

NRAF) 

ROUTINE: RSF 

FUNCTION: Totals all RSFs 

CALLING SEQUENCE: 

CALL RSF (PROJCT, 

ERROR, NPROG, PROG, 

NRSF) 

ROUTINE: SUMS 

FUNCTION: Totals all form counts 

CALLING SEQUENCE: 

CALL SUMS (NPROG, NATM, NCRF , NCSF, NCSR, NGPS, NRAF, 
NRSF, 

NALL, TATM, TCRF, TCSF, TCSR, TGPS, TRAF, 

TRSF , TALL) 
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3. 8. 3. 2 Write the Form Count Report 

These three routines write the report of form counts for the 
given project. 

ROUTINE : FRPT 

FUNCTION: Prints a report of form counts of each form type 

by programmer 

CALLING SEQUENCE: 

CALL FRPT (NATM, NCRF, NCSF, NCSR, NGPS, NRAF', NRSF, 
NALL, TATM, TCRF, TCSF, TCSR, TGPS, TRAF, 

TRSF, TALL, I ORDER, NPROG , PROG, PROJCT) 

ROUTINE : FSUMRY 

FUNCTION: Prints a six-line header summary with data from 

the HDR and EST files 

CALLING SEQUENCE: 

CALL FSUMRY ( IRPTF, PRJNAM) 

ROUTINE : HEADER 

FUNCTION: Prints a one-line title for each report page in- 

cluding the date and project name 

CALLING SEQUENCE: 

CALL HEADER (IRPTF, PRJNAM, RPTITL) 

3.8.3. 3 Obtain Data From Terminal or External Data Set 

These two routines obtain information from a user's response 
to a terminal prompt or from an external data set. 

ROUTINE : FENCA 

FUNCTION: Locates the description field on the Encoding 

Dictionary corresponding to the given type and code 
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CALLING SEQUENCE: 

CALL FENCA ( IENCF, TYPE, CODE, 

NAME, REST, FOUND) 

ROUTINE : GETFLD 

FUNCTION: Displays the given text on the terminal and 

prompts for a given character string 

CALLING SEQUENCE: 

CALL GETFLD (TEXT, EXTFIL, FLDLEN, 

TERMNL, EOFTTY, ERROR, 

FIELD) 

3. 8. 3. 4 Sort and Search Routines 

These two routines provide sort and search functions. 
ROUTINE: SORT4 

FUNCTION: Produces an array of indices sorted according to 

the given 1*4 array 

CALLING SEQUENCE: 

CALL SORT4 (14, NSORT, 

I SORT) 


ROUTINE: STACK 

FUNCTION: Determines if the given name is in the current 

list and adds it if it is not 

CALLING SEQUENCE: 

CALL STACK (MX, PROGNO, 

NPROG, PROG, 

NFRM, ERROR) 


3-138 


8818 



3. 8. 3. 5 File Open and Read Routines 

These nine routines either open an indexed file or read rec 
ords from an indexed file. 

ROUTINE : FCRF 

FUNCTION: Reads one record from the CRF file and converts 

the data to internal format 

CALLING SEQUENCE: 

CALL FCRF ( ICRFF , 

FORMNO, PROJNO, PROGNO, FDATE , NCH, NEXAM, 
OVERl , DATDET, DATBEG, EFFORT, CHTYPE, CHCOMP 
ERRTYP, ERRIN, DATERR, LGCERR, ACTVTY , ISOLTM 
PATCH, RELOLD, RELNO , RELDAT, CMTREA, CMTDES , 
CMTGEN, STATUS, EOF, ERROR) 


ROUTINE : FCSF 

FUNCTION: Reads one record from the CSF file 

CALLING SEQUENCE: 

CALL FCSF ( ICSFF, 

FORMNO, PROJNO, PROGNO, PROG I, FDATE, FSTAGE, 
COMPCO, PRECIS, CMPLEX, SWTYPE, PASGN , PCNTL, 
POTHER, STATWO, STMT, BTSIZE, INDEP , RELSW, 
ADDTYP , NCALLD, Xl, NCALNG , X2, NSHR, X3, 
NDESC , X4 , LANG1, PLANGl , LANG2 , PLANG2 , DES , 
CONSTR, DESRUN, CODRUN, TSTRUN , DESTIM, 
CODTIM, TSTTIM, DESEFF, CODEFF, TSTEFF , 
DESDAT, CODDAT, TSTDAT, DESCR, CALLD , CALNG , 
SHR, AFFECT, OTH, NAMCON, CMTl, CMT2 , ISTAT, 
EOF, ERROR) 


ROUTINE: FCSR 

FUNCTION: Reads one record from the CSR file using FORTRAN 

read 
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CALLING SEQUENCE: 

CALL FCSR ( ICSRF , 

FORMNO , SEQNO, PROJNO, PROGNO, FDATE , COMPCO, 
TIMES, OTHNAM, OTHOUR, ISTAT, PHASE, EOF, 
ERROR) 

ROUTINE : FEST 

FUNCTION: Reads one record from the EST- file and converts 

all data to internal format 

CALLING SEQUENCE: 

CALL FEST (IESTF, NAME, 

PROJ , NCOMP , MODDEL, MODNEW, MODMOD, NRUNS , 
NCHANG , PAGDOC, LINDEL, LINNEW, LINMOD, 
TOTEXT, NEWEXT, MODEXT, PROGHR, MGMTHR, 
OTHRHR, HR95, HR75, OTHCMP, STATUS, ACTIVE, 
PRJCAT, FOUND, ERROR) 

ROUTINE : FHDR 

FUNCTION: Reads one record from the HDR file using the 

secondary key (project name) 

CALLING SEQUENCE: 

CALL FHDR ( IHDRF, PRJNAM , 

PROJ, DEVCMP , TARG, ALIEN, RANGES, STATUS, 
ERROR) 

ROUTINE: FOPEN 

FUNCTION: Opens an indexed file 

CALLING SEQUENCE: 

CALL FOPEN ( IUNIT, FILNAM, 

ERROR) 
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ROUTINE : FRAF 


FUNCTION: Reads one record from the RAF file using FORTRAN 

read 

CALLING SEQUENCE: 

CALL FRAF (IRAFF, 

FORMNO, SEQNO, PROJNO, PROGNO , RDATE , MACHIN, 
INTERA, PURPOS, NCOMP, COMPCO, FIRST, METOBJ, 
RESULT, COMENT, IS TAT, EOF, ERROR) 

ROUTINE : FREAD 

FUNCTION: Reads one indexed record 

CALLING SEQUENCE: 

CALL FREAD (IUNIT, KEYVAL, KEYLEN, LRECL , 

BUFFER, ERROR) 


ROUTINE: FRSF 

FUNCTION: Reads one record from the RSF file using FORTRAN 

read; returns all data on that record converted to internal 
format plus an array containing each week for which there 
are data in the record 

CALLING SEQUENCE: 

CALL FRSF (IRSFF, 

FORMNO, SEQNO, PROJNO, RESCOD, RES ID, FDATE , 
PCMGMT, WKDATE , NRUNS , TIMES, STATUS, PHASE, 
LASTWK, EOF, ERROR) 

3.8. 3. 6 Routines for String Movement or Comparison 

These three routines deal with string movement or comparison. 

ROUTINE: MOVE 

FUNCTION: Moves a given number of bytes from one address to 

another 
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CALLING SEQUENCE: 

CALL MOVE (A, B, LEN) 

ROUTINE: NAME 3 

FUNCTION: Concatenates the given strings to form a complete 

file name 

CALLING SEQUENCE: 

CALL NAME 3 (DISK, UIC, NAME, EXTENS , 

DSN) 

ROUTINE : WHERE 

FUNCTION: Locates the given characters in the given string 

CALLING SEQUENCE; 

CALL WHERE (CHAR, STRING, LEN, 

LOC, FOUND) 

3.8.3. 7 Mathematical Functions 

These two routines perform mathematical functions. 

ROUTINE: NEXTWK 

FUNCTION: Computes the date 1 week after the given date and 

returns it in MM, DD, YY format 

CALLING SEQUENCE: 

CALL NEXTWK (DATE, 

D) 

ROUTINE: SUM (INTEGER* 2 FUNCTION) 

FUNCTION: Computes the sum of all integers in a given array 

CALLING SEQUENCE: 

SUM (ARRAY, N) 
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3. 8. 3. 8 Variable Description 

The variables in the calling sequences of major NF routines 
are described below. 


Name 

Type 

Description 

ARRAY (MX) 

1*2 

Array of numbers 

ERROR 

L*1 

Error flag 

I ORDER (MX) 

1*2 

Sorted index array for programmer 
numbers 

I SORT 
(NSORT) 

1*2 

Sorted index array 

I 4 (NSORT) 

1*4 

Array on which sort is based 

MX 

1*2 

Number of programmers allowed 

N 

1*2 

Number of array elements to be summed 

NALL (MX) 

1*2 

Number of all forms for each programmer 

N ATM (MX) 

1*2 

Number of Attitude Maintenance (ATM) 
forms for each programmer 

NCRF(MX) 

1*2 

Number of CRFs for each programmer 

NCSF(MX) 

1*2 

Number of CSFs for each programmer 

NCSR(MX) 

1*2 

Number of CSRs for each programmer 

NFRM(MX) 

1*2 

Number of forms for each programmer 
for given form type 

NGPS (MX) 

1*2 

Number of General Project Summary (GPS) 
forms for each programmer 

NPROG 

1*2 

Number of programmers found 

NRAF (MX) 

1*2 

Number of RAFs for each programmer 

NRSF(MX) 

1*2 

Number of RSFs for each programmer 

NSORT 

1*2 

Number of entries in array 14 

PROG (MX) 

1*4 

Array of programmer numbers 

PROGNO 

1*4 

Given programmer number 

PROJCT ( 8 ) 

L*1 

Project name 

TALL 

1*2 

Total number of all forms 

TATM 

1*2 

Total number of ATM forms 

TCRF 

1*2 

Total number of CRFs 

TCSF 

1*2 

Total number of CSFs 

TCSR 

1*2 

Total number of CSRs 
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Name Type Description 


TGPS 

1*2 

Total 

number 

of 

GPS forms 

TRAF 

1*2 

Total 

number 

of 

RAFs 

TRSF 

1*2 

Total 

number 

of 

RSFs 

3.8.4 

TASK BUILD 

PROCEDURE 





3. 8. 4.1 Command Procedures 

The NF program can be generated from the source code by ex-- 
ecuting the command procedure NFGEN.CMD under UIC [204,6], 
This command procedure references three command files-- 
NFFPP.CMD, NFFOR.CMD, and NF.TKB--all under UIC [204,6] . 
Figure 3-26 is a listing of NFGEN.CMD, the command procedure 
to precompile, compile, and task build the NF program. The 
NF program is generated by executing the following command: 

@ [204,6] NFGEN 

3. 8. 4. 2 Overlay Structure 

The NF program is overlaid to reduce the memory space re- 
quirement. Figure 3-27 is a listing of the Overlay De- 
scriptor Language file, [204,6]NF.ODL, needed to build the 
NF program task image. The system libraries RMSllM.ODL and 
RMS12X.ODL are needed for the overlay. 
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; 1 

; fNFGEN.CMD 2 

: 3 

; COMMAND PROCEDURE TO GENERATE THE FORM COUNTER PROGRAM (NF) FROM 4 

; THE STRUCTURED FORTRAM SOURCE CODES 5 

: 6 

; PRECOMPILE FORTRAN ROUTINES 7 

; . 8 
®[204,6]NFFPP -CMD 9 

: 10 

; ®NFFPP.CMD 11 

1 ' 12 

; COMMAND PROCEDURE TO PRECOMPILE ALL FORTRAN ROUTINES FOR THE FORM 13 

; COUNTER PROGRAM (NF) (P. LO 7/14/82) 14 

: 15 

; ROUTINES WITH PREFIX NF IS 

; 17 

; FPP SY : [ 204 , 6 ]NFCRF 18 

; FPP SY : [ 204 , 6 ]NFCSF 19 

; FPP SY : (204,6]NFCSR 20 

; FPP SY : [ 204 , 6 ]NFFRPT 21 

; FPP SY : [204 .6JNFNF0RMS 22 

; FPP SY : [ 204 , 6 ]NFRAF 23 

; FPP SY : [ 204 , 6 ]NFRSF 24 

; FPP 3 Y : [ 204 , 6 ] NFSORT 25 

; FPP S Y : [ 204 , 6 ]NFST ACK 26 

: FPP SY : [ 204 . S JNFSUM 27 

;FPP SY: [204.6 ]NFSUMS 28 

: 29 

; ROUTINES WITH PREFIX UT 30 

3 1 

; FPP SY : [ 204 . 7 ]UTFCRF 32 

: FPP SY : [ 204 , 7 [UTFCSF 33 

; FPP SY: [204, 7]UTFCSR 34 

; FPP SY : [ 204 , 7 [UTFENCA 35 

; FPP SY : [ 204 , 7 [UTFEST 36 

; FPP SY: [204,7 [UTFHDR 37 

: FPP SY : [ 204 , 7 [UTFOPEN 38 

; FPP SY: [ 204 , 7 ] UTFRAF 39 

; FPP SY : [ 204 , 7 [UTFREAD 40 

; FPP SY : [204 ,7]UTFRSF 41 

; FPP SY: [ 204 , 7 [UTFSUMRY 42 

: FPP SY : [204,7 ]UTGETFLD 43 

; FPP SY : [ 204 , 7 ]UTHE ADER 44 

; FPP SY: [204,7 JUTMOVE 45 

; FPP SY: [204,7 [UTNAME3 46 

; FPP SY : [204.7 ]UTNEXTWK 47 

; FPP SY: [204,7 )UTWHERE 48 

: 49 

; COMPILE FORTRAN ROUTINES 50 

; 5i 

^[204,6]NFFOR.CMD 52 

; 53 

; ®NFFOR . CMD 54 

: 55 

Figure 3-26. NF Task Generation Command Procedure 
(NFGEN.CMD) (1 of 2) 


3-145 



; COMMAND PROCEDURE TO COMPILE FORTRAN ROUTINES FOR THE FORM 56 
; COUNTER PROGRAM (NF) (P. LO 7/15/82) 57 
: 58 
: ROUTINES WITH PREFIX NF 59 

; go 

;FOR/F4P/OBJECT: [204.6JNFCRF [204,6]NFCRF 61 
; F0R/F4P/0BJECT : (204 ,6]NFCSF [204.6]NFCSF 62 
; F0R/F4P/0B JECT: [204,6 JNFCSR [204, 6 JNFCSR 63 
;FOR/F4P/OBJECT : [204 , 6 JNFFRPT [ 204 , 6 JNFFRPT 64 
; F0R/F4P/0B JECT : [ 204 , 6JNFNF0RMS [204 , 6 JNFNFORMS 65 
:F0R/F4P/0BJECT : [204 , 6 ]NFRAF [204.6JNFRAF 65 
; F0R/F4P/0B JECT: [204.6 JNFRSF [204,6]NFRSF 67 
;F0R/F4P/0BJECT: [ 204 , 6 JNFSORT [ 204 ,6 JNFSORT 68 
; F0R/F4P /OBJECT : [ 204 ,63NF5TACK [ 204 , 6 ]NFSTACK 69 
; F0R/F4P/0B JECT: [204,6 ]NFSUM [204,6jNFSUM 70 
; F0R/F4P/0BJECT : [ 204 , 6 ]NFSUMS [ 204 . 6JNFSUMS 71 
; 72 
; ROUTINES WITH PREFIX UT 73 
: 74 
; F0R/F4P/0B JECT: [204,7 JUTFCRF [ 204 . 7 ]UTFCRF 75 
; FOR/ F4P/0B JECT : [ 204 , 7 ]UTFCSF [ 204 , 7 JUTFCSF 76 
; F0R/F4P/0B JECT : [204,7 JUTFCSR [ 204 , 7 3UTFCSR 77 
; F0R./F4P/0B JECT: [204.7 JUTFENCA [204 , 7 ]UTFENCA 78 
: F0R/F4P/0B JECT: [204.7 JUTFEST [ 204 , 7 ]UTFEST 79 
; FOR/ F4P/0B JECT : [ 204 , 7 3UTFHDR [ 204 . 7 JUTFHDR 80 
; F0R/F4P/0B JECT: [204,7 JUTFOPEN [ 204 , 7 JUTFOPEN 81 
; F0R/F4P/0B JECT: [204,7 3UTFRAF [ 204 . 7 JUTFRAF 82 
; FOR/ F4P /OB JECT : [ 204 , 7 JUTFREAD [ 204 , 7 3UTFREAD 83 
; F0R/F4P/0B JECT : [ 204 , 7 JUTFRSF [ 204 . 7 JUTFRSF 84 
; F0R/F4P/0B JECT: [204,7 juTFSUMRV [ 204 , 7 JUTFSUKRY 35 
: F0R/F4P/0B JECT: [204.7 JUTGETFLD [ 204 , 7 JUTGETFLD 86 
; F0R/F4P/0B JECT : [204 , 7 JUTHEADER [204 , 7 JUTHEAOER 87 
;F0R/F4P/0BJECT: [204,7 3UTM0VE [ 204 , 7 JUTMOVE 88 
;F0R/F4P/0BJECT: [204,7]UTNAME3 [ 204 , 7 JUTNAME3 89 
; F0R/F4P/0BJECT : [204 , 7JUTNEXTWK [204 . 7 3UTNEXTWK 90 
; F0R/F4P/0BJECT : [204 , 7 JUTWHERE [ 204 , 7 3 UTWHERE 91 
1 92 
; TASK BUILD THE NF PROGRAM 93 
; 94 
TKB 9[ 204 , 6 ]NF . TK5 95 
; 96 
; ?NF . TKB 97 
; 98 
; COMMAND PROCEDURE TO TASK BUILD THE FORM COUNTER PROGRAM (NF) 99 
; 1 00 
• [204,5 ]NF=[ 204,6 ]NF/MP 1C 1 
;MAXBUF=250 102 
:// 103 


Figure 3-26. NF Task Generation Command Procedure 
(NFGEN.CMD) (2 of 2) 
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: 1 

; eNF.ODL 2 

: 3 

OVERLAY DESCRIPTOR LANGUAGE FOR THE FORM COUNTER PROGRAM (NF) 4 

: 5 

.ROOT SROOT , OTSALL , RMSALL S 

$ROOT : , FCTR $R1 -$R2-$R5-$R6-RMSR0T-0TSR0T-$SUBS 7 

$R1: .FCTR [ 204 . 6 ]NFNFORMS" [ 204 . S iNFSTACK ~ [ 204 . 6 ] NFSUM 8 

$R2 : , FCTR [204 , 6 ]NFSORT - [ 204 , 7 ] UTGETFLO- [ 204 . 7 JUTWHERE 9 

$R5 : .FCTR [ 204 . 7 ]UTNAME3 -[ 204 , 7 JUTMOVE 10 

$RS: .FCTR [ 204 , 7 ]UTFREAD - [ 204 . 7 JUTFOPEN 11 

: 12 

SSUBS : .FCTR *($CRF,$CSF, $CSR , SRAF , $RSF , $FRPT ,.$ SUMS') 13 

$CRF: .FCTR t204,6]NFCRF - [ 204 , 7 ] UTFCRF 14 

$CSF : .FCTR [204,6]NFCSF - [ 204 , 7 JUTFCSF 15 

$CSR : .FCTR [ 204 , S JNFCSR - [ 204 , 7 JUTFCSR 16 

$RAF : .FCTR [ 204 .BlNFRAF -{204 . 7 juTFRAF 17 

$RSF : .FCTR [204.6]NFRSF - [ 204 . 7 ]UTFRSF- T 204 . 7 ]UTNEXTV/K 18 

$FRPT : .FCTR [ 204 , 6 ]NFFRPT - ( $HDR . IFSUM , $ENC ) 19 

$HDR : .FCTR {204 . 7 juT, HEADER 20 

SFSUM: .FCTR [ 204 , 7 ]UTFSUMR Y- ( $HED . $ESt ) 21 

SHED: .FCTR [ 204 , 7 ]UTFHDR 22 

SEST: .FCTR [ 204 . 7 ]UTFEST 23 

SENC: .FCTR [ 204 . 7 ]UTFENCA 24 

SSUMS : .FCTR [204 , 6 [NFSUMS 25 

: 26 

»LB:[1.1]RMS11M.0DL . 27 

-PLB: [ 1, 1 3RMS12X.ODL 28 

.ENO 29 


Figure 2-21. NF Program Overlay Descriptor Language 
File (NF.ODL) 
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3.9 SEL DATA BASE LISTING PROGRAM (LISTDB) 


3.9.1 INTRODUCTION 

The SEL Data Base Listing Program (LISTDB) produces formatted 
and interpreted listings of SEL data base files. File types 
include Attitude Maintenance (ATM) , Component Information 
File (CIF) , Change Report Form (CRF) , Component Summary Form 
(CSF) , Component Status Report (CSR), Growth History (HIS), 
Run Analysis Form (RAF) , and Resource Summary Form (RSF) . 

3.9.2 PROGRAM STRUCTURE 
3. 9. 2.1 Files Accessed 

The LISTDB program accesses nine input files and eleven out- 
put files as described below. 


Input File Name 


Description 


[2 04.1] ENCODE. HDR 

[204.1] <PR JNAM> .CIF 

[204.1] <PRJNAM> . CRF 

[204.1] <PRJNAM> .CSF 

[204.1] <PRJNAM> . CSR 

[204.1] <PR JNAM> .HIS 

[204.1] <PRJNAM> . RAF 

[204.1] <PRJNAM> . RSF 

[204.1] <PRJNAM> . ATM 


Encoding Dictionary (ENC) file 
CIF for the given project 
CRF file for the given project 
CSF file for the given project 
CSR file for the given project 
HIS file for the given project 
RAF file for the given project 
RSF file for the given project 
ATM file for the given project 


In these file names , <PRJNAM> denotes the name of the 
project selected by the user. 


Output File Name 


Description 


LISTDB. CIF 
LISTDB. CRF 


LISTDB. ERR 
LISTDB . CFl 


Output listing of the CIF 

Output listing of the CRF file 
(change report) 

Output listing of the CRF file 
(error report) 

Output listing of the CSF file 
(part one) 
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Output File Name 


Description 


LISTDB. CF2 

Output listing 
(part two) 

of 

the 

CSF 

file 

LISTDB. CF3 

Output listing 
(part three) 

of 

the 

CSF 

file 

LISTDB. CSR 

Output listing 

of 

the 

CSR 

file 

LISTDB. HIS 

Output listing 

of 

the 

HIS 

file 

LISTDB. RAF 

Output listing 

of 

the 

RAF 

file 

LISTDB. RSF 

Output listing 

of 

the 

RSF 

file 

LISTDB. ATM 

Output listing 

of 

the 

ATM 

file 


3. 9. 2. 2 Baseline Diagram 

Figure 3-28 is the baseline diagram for the LISTDB program. 
The LISTDB routine is the main driver. It obtains the proj- 
ect names and file types and then processes the selected 
data base files and displays them. 

3.9.3 SUBROUTINE/SUBSYSTEM DESCRIPTION 

The routines forming the LISTDB program are grouped here by 
function. in each routine, the calling sequence variables 
are grouped according to input, input and output (if any) , 
and output and appear in the calling sequence in that 
order. In the following descriptions, each group of vari- 
ables begins a new line. The calling sequence variables for 
the major LISTDB routines are described in Section 3. 9. 3. 5. 
Descriptions of the calling sequence variables for utility 
routines are not provided. In addition to the routines de- 
scribed in this section, the LISTDB program also uses the 
following system routines: ERRSET and SECNDS . 

3. 9. 3.1 Process Data and Produce Formatted Lists of Files 

These 21 major routines process data and produce a formatted 
list of an SEL data base file. 
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Figure 3-28. Baseline Diagram for the SEL Data Base Listing Program 
(LISTDB) (2 of 5) 
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Figure 3-28. Baseline Diagram for the SEL Data Base Listing Program 
(LISTDB) (4 of 5) 
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ROUTINE : ATMDEC 


FUNCTION: Decodes and verifies the fields of an ATM file 

record 

CALLING SEQUENCE: 

CALL ATMDEC ( ATMREC , ENCREC, ENCKEY, PRTLIN, COMPS, 
LABELS, LUC IF , LUENC) 


ROUTINE : CFlDEC 

FUNCTION: Decodes part one of a CSF file record 

CALLING SEQUENCE: 

CALL CFlDEC (CSFREC, PRTLIN, ENCREC, ENCKEY, LABELS, 
COMPS, LUC I F , LUENC) 


ROUTINE: CF2DEC 

FUNCTION: Decodes part two of a CSF file record 

CALLING SEQUENCE: 

CALL CF2DEC (CSFREC, PRTLIN, ENCREC, ENCKEY, LABELS, 
LUENC) 


ROUTINE : CF3DEC 

FUNCTION: Decodes part three of a CSF file record 

CALLING SEQUENCE: 

CALL CF3DEC (CSFREC, PRTLIN, ENCREC, ENCKEY, LABELS, 
LUENC) 


ROUTINE: CIFDEC 

FUNCTION: Decodes and validates the fields of a CIF record 

CALLING SEQUENCE: 

CALL CIFDEC (CIFREC, ENCREC, ENCKEY, LABELS, LUENC) 
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ROUTINE: CRFDEC 


FUNCTION: Decodes the primary fields of a CRF file record 

CALLING SEQUENCE: 

CALL CRFDEC (CRFREC, PRTLIN, ENCREC, ENCKEY, LABELS, 
PRNAME, LUCIF, LUENC) 


ROUTINE : CSRDEC 

FUNCTION: Decodes the fields of a CSR file record 

CALLING SEQUENCE: 

CALL CSRDEC (CSRREC, PRTLIN, ENCREC, ENCKEY, LFOR, 
LABELS, LUCIF, LUENC) 


ROUTINE : ERRDEC 

FUNCTION: Decodes the fields of the CRF error report 

CALLING SEQUENCE: 

CALL ERRDEC (CRFREC, PRTLIN, ENCREC, ENCKEY, LABELS, 
LUENC) 


ROUTINE : LISTDB 

FUNCTION: Main driver of the LISTDB program, produces for- 

matted lists of SEL data base files 

CALLING SEQUENCE: None 

ROUTINE : LSTATM 

FUNCTION: Reads, decodes, and displays records from the ATM 

file 

CALLING SEQUENCE: 

CALL LSTATM (PRNAME, ATMREC , ENCREC, ENCKEY, LUCIF, 
LUATM, LUENC, LUDSP) 
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ROUTINE: LSTCIF 


FUNCTION: Reads, decodes, and displays CIF records 

CALLING SEQUENCE: 

CALL LSTCIF (PRNAME, CIFREC, ENCREC, ENCKEY, LUCIF, 
LUENC, LUDSP) 


ROUTINE : LSTCRF 

FUNCTION: Reads, decodes, and displays CRF file records and 

also displays an error report if indicated 

CALLING SEQUENCE: 

CALL LSTCRF (PRNAME, CRFREC , ENCREC, ENCKEY, LUCIF, 
LUCRF, LUENC, LUDSP, LUERR) 


ROUTINE: LSTCSF 

FUNCTION: Reads, decodes, and displays CSF file records in 

three parts 

CALLING SEQUENCE: 

CALL LSTCSF (PRNAME, CSFREC, ENCREC, ENCKEY, LUCIF, 
LUCSF , LUENC, LUDSl, LUDS 2 , LUDS3 ) 


ROUTINE: LSTCSR 

FUNCTION: Reads, decodes, and displays CSR file records 

CALLING SEQUENCE: 

CALL LSTCSR (PRNAME, CSRREC, ENCREC, ENCKEY, LUCIF, 
LUCSR, LUENC, LUDSP) 


ROUTINE: LSTFIL 

FUNCTION: Constructs file names and reads and prints file 

contents 
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CALLING SEQUENCE: 

CALL LSTFIL (NAMTAB, FILIND, PROTAB, NPRO) 

ROUTINE : LSTHIS 

FUNCTION: Reads, decodes, and displays HIS file records 

CALLING SEQUENCE: 

CALL LSTHIS (PRNAME, HISREC, LUHIS, LUDSP) 


ROUTINE : LSTRAF 

FUNCTION: Reads, decodes, and displays RAF file records 

CALLING SEQUENCE: 

CALL LSTRAF (PRNAME, RAFREC, ENCREC, ENCKEY, LUCIF, 
LURAF, LUENC, LUDSP) 

ROUTINE: LSTRSF 

FUNCTION: Reads, decodes, and validates RSF file data 

CALLING SEQUENCE: 

CALL LSTRSF (PRNAME, RSFREC, ENCREC, ENCKEY, LURSF , 
LUENC, LUDSP) 


ROUTINE; RAFDEC 

FUNCTION: Decodes and verifies an RAF file record 

CALLING SEQUENCE: 

CALL RAFDEC (RAFREC, PRTLIN, ENCREC, ENCKEY, LFOR, 
LABELS, COMPS, LUCIF, LUENC) 


ROUTINE: RSFDEC 

FUNCTION: Decodes and displays an RSF file record 
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CALLING SEQUENCE: 

CALL RSFDEC (RSFREC, ENCREC, ENCKEY, LFOR, PRNAME , 
LUDSP, LUENC) 


ROUTINE: SELF I L 

FUNCTION: Opens a data base file and calls the correspond- 

ing read/display routine 

CALLING SEQUENCE: 

CALL SELFIL (PRNAME, FLNAME , IT, LUDBS , LUENC, 

LUDSP, LUALT, LUOPT, LUCIF) 

3. 9. 3. 2 Decode or Verify Data 

These 16 routines mainly decode or verify a data field. 
ROUTINE : DATTAB 

FUNCTION: Computes 10 dates at 7-day intervals subsequent 

to the start date 

CALLING SEQUENCE: 

CALL DATTAB (START, DATES) 

ROUTINE: DAYSRQ 

FUNCTION: Decodes time-to-implement field for the ATM file 

record 

CALLING SEQUENCE: 

CALL DAYSRQ ( INBYT, OUTFLD) 

ROUTINE: FP4TAB 

FUNCTION: Decodes numeric fields for the CSR file record 

CALLING SEQUENCE: 

CALL FP4TAB (INFLD, OUTFLD, NFL) 
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ROUTINE: FULENC 


FUNCTION: Converts numeric codes to alphabetic equivalents 

using the Encoding Dictionary 

CALLING SEQUENCE: 

CALL FULENC ( LDATA , LTYPE, ENCREC, ENCKEY, LABELS, NVAL, 
LUENC) 


ROUTINE : INTEMH 

FUNCTION: Decodes the complexity field for the CSF file 

record 

CALLING SEQUENCE: 

CALL INTEMH ( INBYT, OUTFLD) 

ROUTINE: INTMCO 

FUNCTION: Interprets resource type 

CALLING SEQUENCE: 

CALL INTMCO (INBYT, LSTBYT, OUTFLD, NUM) 

ROUTINE : INTNUC 

FUNCTION: Decodes the form stage field for the CSF file 

record 

CALLING SEQUENCE: 

CALL INTNUC (INBYT, OUTFLD) 

ROUTINE: INTRDM 

FUNCTION: Interprets phase flag 

CALLING SEQUENCE; 

CALL INTRDM ( INFLD, OUTFLD) 
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ROUTINE : INTYNO 


FUNCTION: Interprets yes-no responses 

CALLING SEQUENCE: 

CALL INTYNO (INBYT, OUTFLD) 

ROUTINE : REDCMP 

FUNCTION: Converts numeric codes to alphabetic equivalents 

using the CIF 

CALLING SEQUENCE: 

CALL REDCMP ( LDATA , CIFREC, CIFKEY, LABELS, NVAL, LUCIF) 
ROUTINE: REDENC 

FUNCTION: Converts numeric codes to alphabetic equivalents 

using the Encoding Dictionary 

CALLING SEQUENCE: 

CALL REDENC (LDATA, LTYPE , ENCREC, ENCKEY, LABELS, NVAL, 
LUENC) 


ROUTINE: RSFTAB 

FUNCTION: Verifies resource fields 

CALLING SEQUENCE: 

CALL RSFTAB (RSFREC, HRSLIN, RUNLIN, RTYPE ) 

ROUTINE : VALTAB 

FUNCTION: Decodes change types and error activities for the 

ATM file record 

CALLING SEQUENCE: 

CALL VALTAB ( INFLD, OUTFLD, NAMTAB, NFL, TBYT) 
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ROUTINE: VERDAT 


FUNCTION: Verifies date 

CALLING SEQUENCE: 

CALL VERDAT (INFLD, OUTFLD) 

ROUTINE: VERFP4 

FUNCTION: Verifies numeric field 

CALLING SEQUENCE: • 

CALL VERFP4 (INFLD, OUTFLD) 

ROUTINE: VERNUM 

FUNCTION: Decodes a numeric field 

CALLING SEQUENCE: 

CALL VERNUM (INFLD, OUTFLD, FLEN) 

3.9. 3. 3 Obtain Data From Terminal 

These two routines obtain- information from a user's response 
to a terminal prompt. 

ROUTINE: GETFIL 

FUNCTION: Prompts for, validates, and marks file names 

CALLING SEQUENCE: 

CALL GETFIL (NAMTAB, NFIL, FILIND) 

ROUTINE : GETNAM 

FUNCTION: Prompts for project names, checks them against 

the Encoding Dictionary, and saves them in a table 

CALLING SEQUENCE: 

CALL GETNAM (PROTAB, NPRO) 
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3 . 9 . 3 . 4 Routine With String Movement 
These 2 routines deal with string movement. 

ROUTINE: MOVEBL 

FUNCTION: Moves blanks to an array of specified length 

CALLING SEQUENCE: 

CALL MOVEBL (VALUE, LENGTH) 

ROUTINE : MOVECR 

FUNCTION: Moves a given number of bytes from one address to 

another 

CALLING SEQUENCE: 

CALL MOVECR (INBUFF, OUTBUF, LENGTH) 

3. 9. 3. 5 Variable Description 

The variables in the calling sequences of main LISTDB rou- 
tines are described below. 


Name 

Type 

Description 

ATMREC (77) 

L*1 

Buffer array to hold an ATM file 
record 

CIFKEY (3) 

L*1 

Tertiary key for the CIF (component 
code) 

CIFREC ( 80 ) 

L*1 

Buffer array to hold a CIF record 

COMPS (11) 

R* 8 

Array containing component names 

CRFREC (101) 

L*1 

Buffer array to hold a CRF file 
record 

CSFREC ( 250 ) 

L*1 

Buffer array to hold a CSF file 
record 

CSRREC (79) 

L*1 

Buffer array to hold a CSR file 
record 

DATES (22) 

1*2 

Dates (Ml, Dl, M2, D2, ..., Mil, 
Dll) 

ENCKEY ( 8 ) 

L*1 

Primary key for the Encoding Dic- 
tionary (code type and code) 
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Name 


Type Description 


ENCREC ( 60) 

L*1 

Buffer array to hold an Encoding 
Dictionary record 

FI LIND (8) 

L*1 

Flag indicating whether a given 
file is to be listed or not 

FLEN 

1*2 

Length of a given numeric field 

FLNAME (23) 

L*1 

File name 

HISREC ( 29) 

L*1 

Buffer array to hold an HIS file 
record 

HRSLIN (58) 

L*1 

Array containing number of hours 
used for runs 

INBYT 

L*1 

Input character 

INFLD (X) 

L*1 

Input characters (length X is vari 
able, dependent on the length of a 
particular field) 

IT 

1*2 

File identification number 


= 1, CIF 
= 2, CRF 
= 3, CSF 
« 4, CSR 
= 5, RAF 
= 6, RSF 
= 7, HIS 
= 8, ATM 


LABELS (X) 

R*8 

Decoded value for a field (length X 
is variable) 

LDATA(X) 

L*1 

Input numeric codes that are to be 
converted to alphabetic names using 
the Encoding Dictionary or CIF 
(length X is variable) 

LFOR ( 6 ) 

L*1 

Decoded form number 

LSTBYT 

L*1 

Previous resource type 

LTYPE(X) 

L*1 

Code type on Encoding Dictionary 
(length X is variable, X must be 
multiple of 3) 

LUALT 

1*2 

Unit number for the second output 
listing file 

LUATM 

1*2 

ATM file unit number 

LUCIF 

1*2 

CIF unit number 

LUCRF 

1*2 

CRF file unit number 

LUCSF 

1*2 

CSF file unit number 
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Name 

Type 

Description 

LUCS R 

1*2 

CSR file unit number 

LUDBS 

1*2 

Unit number for a given data base 
file 

LUDSP 

1*2 

Output report file unit number 

LUDS1 

1*2 

CSF file output report part one 
unit number 

LUDS2 

1*2 

CSF file output report part two 
unit number 

LUDS3 

1*2 

CSF file output report part three 
unit number 

LUENC 

1*2 

Unit number for Encoding Dictionary 

LUERR 

1*2 

Unit number for the error report of 
the CRF file 

LUHIS 

1*2 

Unit number for the HIS file 

LUOPT 

1*2 

Unit number for the third output 
listing file 

LURAF 

1*2 

RAF file unit number 

LURSF 

1*2 

RSF file unit number 

NAMTAB ( 8 ) 

R*4 

File name table 

NFIL 

1*2 

Number of files to be listed 

NFL 

1*2 

Number of fields 

NPRO 

1*2 

Number of projects 

NUM 

1*2 

Code type indicator for RSF record 

NVAL 

1*2 

Number of bytes of a given field to 
be decoded 

OUTFLD (X) 

L*1 

Decoded output characters (length X 
is variable) 

PRNAME 

R*8 

Project name 

PROTAB (20) 

R*8 

Project name array 

PRTLIN (X) 

L*1 

Decoded output characters (length X 
is variable) 

RAFREC (53) 

L*1 

Buffer array to hold an RAF file 
record 

RSFREC ( 115 ) 

L*1 

Buffer array to hold an RSF file 
record 

RTYPE 

L*1 

Resource type 
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Name 

Type 

Description 


RUNLIN (33) 

L*1 

Decoded number of runs for 
resource 

computer 

START ( 6 ) 

L*1 

First date 


TBYT (2) 

L*1 

Error detection activities 
tif ier 

D = detection, 

I = isolation, 

B = both 

iden- 


3.9.4 TASK BUILD PROCEDURE 

3 . 9 . 4 . 1 Command Procedures 

The LISTDB program can be generated from the source code by 
executing the command procedure [204 , 6] DLGEN.CMD. This com- 
mand procedure references three command files--DLFPP.CMD, 
DLFOR.CMD, and LISTDB. TKB--all under UIC [204,6]. Fig- 
ure 3-29 is a listing of DLGEN.CMD, the command procedure to 
precompile, compile, and task build the LISTDB program. The 
LISTDB program is generated by executing the following 
command : 

§ [204,6] DLGEN 

3.9.4. 2 Overlay Structure 

The LISTDB program is overlaid to reduce the memory space 
requirement. Figure 3-30 is a listing of the Overlay De- 
scriptor Language file, [204, 6] LISTDB. ODL, needed to build 
the LISTDB program task image. The system libraries 
RMSllM.ODL and RMS12X.ODL are needed for the overlay. 


3-166 


8818 



?DLGEN.CMD 


1 
2 
3 

; COMMAND PROCEDURE TO GENERATE THE SEL DATA BASE LISTING PROGRAM 4 

; (LISTDB) FROM THE SOURCE CODES (P, LO 7/21/82) 5 

: € 

PRECOMPILE FORTRAN ROUTINES 7 

: 8 

e[204,6]DLFPP.CMD 9 

; 10 

; SOLFPP.CMD 11 

: 12 

; COMMAND PROCEDURE TO PRECOMPILE ALL FORTRAN ROUTINES FOR THE SEL 13 

; DATA BASE LISTING PROGRAM (LISTDB) (P. LO 7/21/82) 14 

; 15 

ROUTINE WITH PREFIX DL ■ IS 

; 17 

; FPP SY : [204.6 ]DLATMDEC 18 

;FPP SY: [ 204 , 6 ]DLCF 1DEC 19 

; FPP SY : [204 .6]DLCF2DEC 20 

;FPP SY: [ 204 , 6 JDLCF3DEC 21 

: FPP SY : [ 204 . 6 ]DLCI FDEC 22 

: FPP SY : [ 204 ,6]DLCRFDEC 23 

; FPP SY : [ 204 , 6 ]DLCSRDEC 24 

: FPP SY : [204 , 6 ]DLDATTA8 25 

; FPP SY : [ 204 . 6 ]DLDAYSRQ 2S 

; FPP SY: [ 204 . 6 ]DLERRDEC 27 

: FPP SY : [ 204 , 6 ]DLFP4T AB 28 

; FPP SY: [204,6 JDLFULENC 29 

; FPP SY : [ 204 ,6]DLGETFIL 30 

;FPP SY : [204.6 JDLGETNAM 31 

; FPP SY: [204.6 1DLINTEMH 32 

; FPP SY : [ 204 . 6 [DLINTMCO 33 

; FPP SY: [204.6 JDLINTNUC 34 

; FPP SY : [ 204 , S JDLINTRDM 35 

; FPP SY: [204.6 [DLINTYNO 36 

: FPP SY: [204.6 JDLLISTDB 37 

; FPP SY: [204,6 ]DLLSTATM 38 

; FPP SY: [204,6 [DLLSTCIF 39 

; F P P SY: [ 204 , 6 [DLLSTCRF 40 

; FPP SY: [204.6]DLLSTCSF 41 

; FPP SY : [ 204 ,6]DLLSTCSR 42 

; FPP SY : [204.6]DLLSTFIL 43 

; FPP SY: [ 204 . 6 JDLLSTHI S 44 

: FPP SY : [ 204 , 6]0LLSTRAF 45 

: FPP SY: [204,6]DLLSTRSF 46 

; FPP SY : [ 204 ,6]DLRAFDEC 47 

; FPP SY : [204.6 JOLREDCMP 43 

; FPP SY: [ 204 . 6 ]DLREDENC 49 

: FPP SY: [204,6 1DLRSFDEC 50 

; FPP SY : [204.6 ]DLRSFTAB 31 

; FPP SY: [204.6 IDLSELFIL 52 

; FPP SY : [204 , 6 ]DLVALTAB " 53 

; FPP SY: [204.6 ]DLVERDAT 54 

: FPP SY : [ 204 ,6]DLVERFP4 55 


Figure 3-29. LISTDB Task Generation Command Procedure 
(DLGEN.CMD) (1 of 3) 
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;FPP SY:[ 204,6 JDLVERNUM 5S 

: 57 

I ROUTINE WITH PREFIX DM 58 

• 59 

;FPP SY: [204, 15]DMM0VEBL 60 

61 

; COMPILE FORTRAN ROUTINES 62 

’ 63 

®[204,6]DLF0R.CM0 64 

; 65 

; ®DLFOR.CMD S6 

• 67 

: COMMAND PROCEDURE TO COMPILE ALL FORTRAN ROUTINES FOR THE SEL DATA 68 

: BASE LISTING PROGRAM (LISTDB) (P. LO 7/21/82) 69 

70 

; ROUTINE WITH PREFIX DL 71 

• 72 

;F0R/F4P/0BJECT : [ 204 , 6 jDLATMDEC [204 . 6 ]DLATMDEC 73 

; F0R/F4P/0B JECT: [204,6 3DLCF1DEC [ 204 . 6 JDLCF 1DEC 74 

; F0R/F4P/0SJECT : [204 ,6]DLCF2DEC [ 204 . 6 ]DLCF2DEC 75 

; FOR/ F4P/0B JECT : [204 , 6 JDLCF3DEC [ 204 , 6 JDLCF3DEC 76 

: F0R/F4P/08JECT : [204 ,6 3DLCIFDEC [204 .6 JOLCIFDEC 77 

; F0R/F4P/0BJECT : [204 , 6 JDLCRFDEC [ 204 , 6 JOLCRFDEC 78 

; FOR/F 4P/0B JECT : [ 204 , 6 ]DLCSRDEC [ 204 , 6 ]DLCSRDEC 79 

; F0R/F4P/0BUECT : [204 , 6 JDLDATTAB [ 204 , 6 ]DLDATTAB 80 

; F0R/F4P/0BJECT: [204,6 JDLDAYSRO [204 ,6]DLDAYSRQ 81 

; FOR/F 4P /OB JECT : [ 204 , 6 JDLERRDEC t 204 . 6 ]DLERRDEC 82 

;F0R/F4P/0BJECT : [ 204 ,6]DLFP4TAB [ 204 , 6 ]DLFP4TAB 83 

; F0R/F4P/0B JECT: [204,6 JDLFULENC [ 204 , 6 JDLFULENC 84 

; FOR/ F 4 P/OB JECT : [ 204 , 6 JDLGETF I L [ 204 . 6 JDLGETF I L 85 

; F0R/F4P/0B JECT: [204.6 JDLGETNAM [ 204 , 6 ]DLGETNAM 86 

; FOR/ F4P/0B JECT : [ 204 , 6 ]DL INTEMH [ 204 , 6 ]DLINTEMH 87 

; F0R/F4P/0B JECT: [204.6 ]DLINTMCO [ 204 , 6 JOLINTMCO 88 

: FOR /F4 P/OB JECT : [ 204 , 6 ]DLINTNUC [ 204 . 6 ]DL INTNUC 89 

: F0R/F4P/0BJECT : [204 , 6 ]DLlNTRDM [ 204 , 6 ]DLINTROM 90 

; FOR /F4P/0B JECT : [ 2C4 . 6 ]DLINT YNO [ 204 . 6 ]DL INTYNO 91 

; F0R/F4P/0B JECT : [204 , 6 ]DLL ISTDB [204 , 6 JDLLISTDB 92 

;F0R/F4P/0BJECT : [ 204 ,6]DLLSTATM [ 204 , 6 JDLLST ATM 

;F0R/F4P/0BJECT : [ 204 , 6 JDLLSTCIF [ 204 , 6 3DLLSTCI F 04 

: FOR/ F4P/0B JECT : [204 ,6]DLLSTCRF [204 , 6 ]DLLSTCRF 

; F0R/F4P/0B JECT : [204 , 6 JDLLSTCSF [204 , 6 JDLLSTCSF 05 

: F0R/F4P/0B JECT : [ 204, 6 1DLLSTCSR [ 204 , 6 IDLLSTCSR 97 

: F0R/F4P/0BJECT : [ 204 , 6 ]DLLSTF IL [ 204 , 6 ]DLLSTFIL 98 

: F0R/F4P/0B JECT: [204.6 ]DLLSTHIS [204 . 6 JDLLSTHIS 9 9 

•.F0R/F4P/0BJECT: [204,6]DLLSTRAF [204 . 6 JDLLSTRAF 100 

; FOR/ F4P/0B JECT : [ 204 , 6 JDLLSTRSF [ 204 , 6 JDLLSTRSF 701 

; F0R/F4P/0B JECT: [204.6 ]DLRAFDEC [204 , 6 ]DLRAFDEC 102 

; FOR/ F4P/0B JECT : [ 204 . 6 JDLREOCMP [ 204 , 6 joLREDCMP 103 

; F0R/F4P/0B JECT: [204,6 ]DLREDENC [ 204 , 6 ]DLREDENC 104 

1.FOR/F4P/OBJECT: [ 204 , 6 JDLRSFDEC [ 204 , 6 lOLRSFDEC 105 

; FOR/F 4P/0BJECT : [ 204 ,6]DLRSFTAB [204 . 6 ]DLRSFTAB 106 

; F0R/F4P/0B JECT : [ 204 .6 jDLSELFIL [ 204,6 ]DLSELFIL 107 

; FOR/ F4P /OBJECT : [ 204 ,6]DLVALTAB [ 204 . 6 JDLVALTAB 108 

; FOR/ F4P/0B JECT : [ 204 , 6 ]DLVERDAT [ 204 , 6 ]DLVERDAT 109 

; FOR/F 4P/0B JECT : [ 204 , 6 ] DLVERFP4 [ 204 . 6 JDLVERFP4 1 l 0 


Figure 3-29. LISTDB Task Generation Command Procedure 
(DLGEN.CMD) (2 of 3) 
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; FOR /F4P /OBJECT : [ 204 , 6 ]DLVERNUM [ 204 , 6 3DLVERNUM 1 1 1 

: 112 

; ROUTINE WITH PREFIX DM 113 

I 114 

; FOR/F4P/OB JECT : [204, 15 ]DMMOVEBL [204, 15 JDMMOVEBL 1 15 

; ire 

; COMPILE ASSEMBLER ROUTINE 117 

: 1 13 

MAC/OBJECT : [ 204 , 7 JUTCHAREO [ 204 , 7 ]UTCHAREO 1 1 9 

: 120 

; TASK BUILD THE LISTDB PROGRAM 121 

:: 122 

TKB ® [ 204 , 6 ] LISTDB . TKB 123 

124 

; 'SLISTDB.TKB 125 

; 126 

; COMMAND PROCEDURE TO TASK BUILD THE SEL DATA BASE LISTING PROGRAM 127 

(LISTDB) 1 23 

: 129 

: •[ 204 , 5 ] L ISTDB= [ 204 , 6 ] L I STDB/MP 1 30 

;UNITS=8 131 

; ACTF I L=6 132 

; M4XBUF-250 133 

;// 134 


Figure 3-29. LISTDB Task Generation Command Procedure 
(DLGEN.CMD) (3 of 3) 
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PLISTD.B.ODL 


OVERLAY DESCRIPTOR LANGUAGE FOR THE SEL DATA BASE LISTING PROGRAM 
( LISTDB ) 


$R1 : 
$R2: 
$PO: 
$P 1 : 
$P2: 
$P3: 
$P4 : 
$P5 : 
$L 1 : 
$L2: 
$L3: 
$L3 1 : 
$L32 : 
$L4: 
$L5 : 
$L6: 
$L6 1 : 
$L7 : 
$L7 1 ; 


.ROOT $R1 , OTSALL , RMS ALL 

.FCTR [ 204 , 6 3DLLISTDB-RMSROT-OTSROT-$R2 

. FCTR [ 204 , 7 jUTCHAREO" [ 204 , 15 ]DMMOVEBL- “ ( $P0 , $P 1 ) 

. FCTR [ 204 , 6 JDLGETNAM- [ 204 , 6 JDLGETFI L 

.FCTR I204,€]DLLSTFIL-$P2**($L1 , $L2 , $L3 , $L4 , $L5 . $L6 , $L7 ) 

. FCTR [204 , 6 ]DLS£LFIL~ [ 204 , 6 ] DLREDENC- [ 204 , 6 jDLFULENC -$P3 
. FCTR [ 204 , 6 3 DLREDCMP- [ 204 . 6 joLVERDAT- [ 204 . 6 ]DLVERNUM-$P4 
. FCTR [ 204 , 6 ]0LFP4TAB- [ 204 ,6 3DLVERFP4- [ 204 . 6 ]DLINTYNO-$PS 
.FCTR [2O4.630LINTRDM 
. FCTR [204 c 6]DLLSTCIF-[2O4, 6JDLCIFDEC 

- FCTR [ 204 , 6 ] DLLSTCRF - [ 204 . 6 ]DLCRFDEC~ { 204 , 6 ] DLERRDEC 
. FCTR [ 204 t 6 jDLLSTCSF-* ( $L3 1 , [ 204 , 6 ]DLCF2DEC , $L32 ) 

. FCTR [ 204 , 6 ]OLCF 1DEC- [ 204 „ 6 JDLINTNUC 
• FCTR [ 204 , 6 JDLCF3DEC - [ 204 , 6 ]DL INTEMH 
. FCTR [ 204 ,6]DLL5TCSR~[ 204 , 6 JOLCSRDEC- [204.6JDLLSTHIS 
. PCTR [ 204 , 6 JDLLSTRAF- [ 204 , 6 ]DLRAFDEC 

. FCTR [ 204 , 6 ]DLLSTRSF - [ 204 . 6 JDLRSFDEC- [ 204 . 6 ]DLD ATTA8 -$L6 1 
.FCTR [204,€]DLINTMC0-t204.6]DLRSFTAB 

. FCTR [204 ,6]DLLSTATM-[ 204. 6 ]DLATMD£C-[204 , 6]DLVALTAB-$L7 1 
.FCTR [ 204 , 6 JDLDAYSRO 


^LB: [ 1 , 1J.RMS1 1M.0DL 
«LB: [1,1 JRMS12X .ODL 
. END 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 
1 1 
12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
2 3 

24 

25 

26 

27 

28 

29 

30 


Figure 3-30. 


LISTDB Program Overlay Descriptor Language 
File (LISTDB. ODL) 
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3.10 SEL DATA BASE RECENT ACTIVITY REPORT PROGRAM (RC) 


3.10.1 INTRODUCTION 

The SEL Data Base Recent Activity Report Program (RC) gen- 
erates a one-page report of the additions, deletions and 
changes to records in the SEL data base since the last back- 
up date. This information is retrieved from the transaction 
files . 


3.10.2 PROGRAM STRUCTURE 


3.10.2.1 Files Accessed 


The RC program accesses eight input files and one output 
file as described below. 


Input File Name Description 

[204,1] ENCODE . HDR Encoding Dictionary (ENC) file 


DB0 : [204,1] TRANS. CIF 


DB0 : [204,1] TRANS . CRF 


DB0 : [204,1] TRANS. CSF 


DB0 : [204,1 ] TRANS. CSR 
DB0 : [204,1] TRANS. HIS 


Component information Transac- 
tion file 

Change Report Form Transaction 
file 

Component Summary Form Transac- 
tion file 

Component Status Report Trans- 
action file 

Growth History Transaction file 


DB0: [204 , 1] TRANS . RAF Run Analysis Form Transaction 

file 

DB0: [204,1] TRANS. RSF Resource Summary Form Transac- 

tion file 


Output File Name 


Description 


RECENT. RPT 


Recent activity output report 
file 
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3.10.2.2 Baseline Diagram 


Figure 3-31 is the baseline diagram for the RC program. The 
RECENT routine is the main driver. It obtains the project 
name from the Encoding Dictionary; counts all adds, deletes, 
and changes from the transaction files for a given project; 
and then generates a report of all adds, deletes, ana 
changes for all projects. 

3.10.3 SUBROUTINE/SUBSYSTEM DESCRIPTION 

The routines forming the RC program are grouped here by 
function. In each routine, the calling sequence variables 
are grouped according to input, input and output (if any), 
and output and appear in the calling sequence in that or- 
der. In the following descriptions, each group of variables 
begins a new line. The calling sequence variables for the 
major RC routines are described in Section 3.10.3.6. De- 
scriptions of the calling sequence variables for utility 
routines are not provided. In addition to the routines de- 
scribed in this section, the RC program also uses the fol- 
lowing system routines; DATE, ERRSET, SECNDS, and TIME. 

3.10.3.1 Process Data and Compute Statistics 

These two major routines count all adds, deletes, and 
changes in the transaction files for all projects. 

ROUTINE ; RECENT 

FUNCTION; Main routine of the RC program, generates a one- 
page report of the additions, deletions, and changes to rec- 
ords in the SEL data base 

CALLING SEQUENCE; None 


3-172 


8818 




>1 

-M 

•H 

> 

-P 

O 

•P 

C 

<D 

O 

<U 

OS 

(D 

w 

cd 

« 

<d 

-p 

n3 

Q 

PI 

W 

W 

0) 

JU 

-P 

P 

O — 
<4-1 U 
C* 

e ~ 

(d 


<d P 
■h cn 
Q O 
P 

d) P 

c 

■H -P 
«H Pi 
<D O 

w a 

fd 0) 
ffl OS 


«H 

co 

i 

CO 

<L> 

P 

P 

•H 

&4 


3-173 





















ROUTINE: SUMTYP 


FUNCTION: Obtains a count of all additions, deletions ,• and 

changes to the given file type in the data base from the 
transaction files 

CALLING SEQUENCE: 

CALL SUMTYP (ITYP, LOC, MAXACT, MAXPRJ, MAXTYP, RECL, TYP, 
COUNTS , 

DATE) 

3.10.3.2 Write Output Report 

These two routines write a one-page report of the additions, 
deletions, and changes for all projects. 

ROUTINE : HEADER 

FUNCTION: Prints a one-line title for each report page that 

includes the date and project 

CALLING SEQUENCE: 

CALL HEADER ( IRPTF , PRJNAM, RPTITL) 

ROUTINE : RPT 

FUNCTION: Prints a one-page report of the transaction file 

counts 

CALLING SEQUENCE: 

CALL RPT (COUNTS, DATE, MAXACT, MAXPRJ, MAXTYP, PRJNAM, 
SRTKEY) 

3.10.3.3 File Open and Read Routines 

These five routines either open an indexed file or read rec- 
ords from an indexed file. 
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ROUTINE : FENCA 


FUNCTION: Finds the description field on the Encoding Die 

tionary corresponding to the given type and code 

CALLING SEQUENCE: 

CALL FENCA (IENCF, TYPE, CODE, 

NAME, REST, FOUND) 


ROUTINE : FOPEN 

FUNCTION: Opens an indexed file 

CALLING SEQUENCE: 

CALL FOPEN (IUNIT, FILNAM,. 
ERROR) 


ROUTINE : FREAD 

FUNCTION: Reads one indexed record 

CALLING SEQUENCE: 

CALL FREAD (IUNIT, KEYVAL, KEYLEN, LRECL, 

BUFFER, ERROR) 

ROUTINE : GETPRJ 

FUNCTION: Obtains all project names from the Encoding Die 

tionary 

CALLING SEQUENCE: 

CALL GETPRJ (MAXPRJ, 

PRJNAM) 


ROUTINE : RDSEQ 

FUNCTION: Reads one record from a sequential file 
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CALLING SEQUENCE: 

CALL RDSEQ (IUNIT, NCHARS , 

CHARS , EOF) 

3.10.3.4 Sort Routine 

This one routine provides a sort function. 

ROUTINE: SORT 8 

FUNCTION: Generates an array of indices to alphabetize the 

given name array 

CALLING SEQUENCE: 

CALL SORT 8 (MAX, NSORT, NAMES, 

SRTKEY) 

3.10.3.5 Routines for String Movement or Comparison 

These five routines deal with string movement or comparison. 
ROUTINE : BLANK 

FUNCTION: Initializes an array to blanks 

CALLING SEQUENCE: 

CALL BLANK (ARRAY, NUM) 

ROUTINE: CHARGT (LOGICAL FUNCTION) 

FUNCTION: Determines whether the first string alphabetically 

follows the second 

CALLING SEQUENCE: 

CHARGT (STRNG1 , STRNG2 , LEN) 

ROUTINE: INTG (INTEGER* 2 FUNCTION) 

FUNCTION: Converts the given characters to integer 

CALLING SEQUENCE: 

INTG (BUFFER, LEN) 
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ROUTINE: MOVE 


FUNCTION: Moves a given number of bytes from one address to 

another 

CALLING SEQUENCE: 

CALL MOVE (A, B, LEN) 

ROUTINE: NAME 3 

FUNCTION: Concatenates the given strings to form a complete 

file name 

CALLING SEQUENCE: 

CALL NAME 3 (DISK, UIC, NAME, EXTENS, 

DSN) 

3.10.3.6 Variable Description 

The variables in the calling sequences of main RC routines 
are described below. 


Name 

Type 

Description 

COUNTS 

(MAXACT, MAXTYP , 
MAXPRJ) 

1*2 

Count of all additions, 
deletions, and changes of all 
data base files as recorded on 
the transaction files 

DATE ( 6 ) 

L*1 

Last backup date 

ITYP 

1*2 

Number of current file type 

LOG 

1*2 

Location of the field of the 
project code within a record 

MAX 

1*2 

Maximum number of project names 

MAXACT 

1*2 

Total number of activities (add 
delete, change, total) 

MAXPRJ 

1*2 

Maximum number of projects 

MAXTYP 

1*2 

Total number of files + 1 

NAMES ( 8 , NSORT) 

L*1 

Names to be sorted 

NSORT 

1*2 

Number of names to be sorted 
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Name 

Type 

Description 

PRJNAM ( 8 , MAXPR J ) 

L* 1 

Project names 

RECL 

1*2 

Logical record length for a 
given transaction file 

SRTKEY( MAXPR J) 

1*2 

Sort index array to alphabetize 
project names 

TYP (3) 

L*1 

Current file type (e.g., 'CIF') 

3.10.4 TASK BUILD 

PROCEDURE 


3.10.4.1 Command 

Procedure 



The RC program can be generated from the source code by exe- 
cuting the command procedure RCGEN.CMD under UIC [204,6], 
This command procedure references three command procedures-- 
RCFPP.CMD, RCFOR.CMD, and RC.TKB — all under UIC [204,6], 
Figure 3-32 is a listing of RCGEN.CMD, the command procedure 
to precompile, compile, and task build the RC program. The 
RC program is generated by executing the following command: 

@ [204,6] RCGEN 

3.10.4.2 Overlay Structure 

The RC program is overlaid to reduce the memory space re- 

/ 

quirement. Figure 3-33 is a listing of the Overlay De- 
scriptor Language file, [204,6] RC.ODL, needed to build the 
RC program task image. The system libraries RMS11M.ODL and 
RMS12X.ODL are needed for the overlay. 
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®RCGEN.CMD 


1 
2 
3 

; COMMAND PROCEDURE TO GENERATE THE RECENT ACTIVITY REPORT PROGRAM 4 

; (RC) FROM THE SOURCE CODES (P. LO 7/30/82) 5 

I 6 

PRECOMPILE ALL STRUCTURED FORTRAN SOURCE CODES 7 

; 8 

® [ 204 , 6 JRCFPP 9 

; 10 

; PRCFPP.CMD 11 

: 12 

; COMMAND PROCEDURE TO PRECOMPILE ALL ROUTINES WRITTEN IN STRUCTURED 13 

; FORTRAN FOR THE SEL DATA BASE RECENT ACTIVITY REPORT PROGRAM (RC) 14 

(P. LO 7/30/82) 15 

; * 16 
; ROUTINES WITH PREFIX RC 17 

; 18 

; FPP SY: [204 , 6 JRCGETPRJ 19 

; FPP SY : [ 204 ,6 3 RCRECENT 20 

; FPP SY: [204,6 JRCRPT 21 

; FPP SY: [204,6 JRCS0RT8 22 

; FPP SY : [204, 6 JRCSUMTYP 23 

: 24 

; ROUTINES WITH PREFIX UT 25 

; 26 

; FPP SY: [204.7 JUTBLANK 27 

; FPP SY : [204,7 JUTCHARGT 28 

;FPP SY: [204 , 7 ]UTFENCA 29 

; FPP SY: [ 204 , 7 JUTFOPEN 30 

; FPP SY: [204,7 JUTFREAD 31 

; FPP SY: [204.7 JUTHEADER 32 

; FPP SY: [204,7 JUTINTG 33 

; FPP SY: [204,7 JUTMOVE 34 

; FPP SY: [ 204 , 7 JUTNAME3 35 

; FPP SY: [204,7 3UTRDSE0 36 

; 37 

; COMPILE ALL FORTRAN ROUTINES 38 

: 39 

^ [ 204 ,6 ] RCFQR 40 

: 41 

; ^RCFOR.CMD 42 

43 

COMMAND PROCEDURE TO COMPILE ALL FORTRAN ROUTINES FOR THE SEL DATA 44 

BASE RECENT ACTIVITY REPORT PROGRAM (RC) 45 

; (P. LO 7/30/82) 46 

; 47 

ROUTINES WITH PREFIX RC 48 

; 49 

; F0R/F4P/0B JECT : [ 204 , 6 3RCGETPRJ [ 204 , 6 3 RCGETPR J 50 

; F0R/F4P/0B JECT : [ 204 , 6 3 RCRECENT [ 204 . 6 3RCRECENT 5 1 

; F0R/F4P/0B JECT : [ 204 , 6 )RCRPT [ 204 , 6 JRCRPT 52 

; F0R/F4P/0B JECT : [ 204 , 6 JRCS0RT8 [ 204 , 6 3 RCS0RT8 53 

; F0R/F4P/0BJECT : [204 , 6 3RCSUMTYP [ 204 . 6 JRCSUMTYP 54 

; 55 

Figure 3-32. RC Task Generation Command Procedure 
(RCGEN.CMD) (1 of 2) 
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; ROUTINES WITH PREFIX UT 56 

: 57 

;F0R/F4P/0BJECT: [204,7 [UTELANK £ 204 , 7 RlTBLANK 58 

; F0R/F4P/03JECT : [204 , 7 )UTCHARGT [ 204 , 7 [UTCHARGT 59 

; F0R/F4P/0BJECT : [204 , 7 [UTFENCA [204 . 7 J.UTFENCA SO 

;F0R/F4P/0BJECT : [ 204 , 7 JUTFOPEN [ 204 . 7 JUTFOPEN 61 

; F0R/F4P/06 JECT : [ 204 , 7 JUTFREAD [ 204 , 7 JUTFREAD 62 

; FOR/ F4P/ OBJECT : [204 . 7 ]UTHEADER [204 , 7 JUTHE ADER 63 

; F0R/F4P/0B JECT: [204,7 JUTINTG [ 204 , 7 JUTINTG 64 

: F0R/F4R/0B JECT : [ 204 , 7 ]UTMOVE [ 204 . 7 JUTMOVE 65 

; F0R/F4P/0BJECT : [ 204 , 7 ]UTNAME3 [ 204 . 7 [UTNAME3 66 

; F0R/F4P/0B JECT: [204.7 JUTRDSEO [ 204 , 7 J.UTROSEO 67 

; 68 

;• TASK BUILD THE RC PROGRAM 69 

; 7 o 

TKB ® [ 204 , 6 ] RC . TKB 71 

I 72 

®RC . TKB 73 

: • 74 

; COMMAND PROCEDURE TO TASK BUILD THE RECENT ACTIVITY REPORT PROGRAM 75 

: (RC) 76 

; 77 

; [ 204 , 5 ]RC= [ 204 , 6 )RC/MP 78 

;MAXBUF=263 79 

:// 80 


Figure 3-32. RC Task Generation Command Procedure 
(RCGEN.CMD) (2 of 2) 
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: i 

; 'SRC . DDL 2 

; 3 

; THE OVERLAY DESCRIPTOR LANGUAGE FOR THE RECENT ACTIVITY REPORT 4 

; PROGRAM ( RC ) 5 

; 6 

.ROOT RM5ROT-OTSROT-$ROOT , OTSALL . RMSALL 7 

$ROOT : . FCTR [204, 6 ] RCGETPR J- [ 204 . 6 ] RCRECENT- [ 204 . 6 ]RCRPT -$R00T2 8 

SR00T2: .FCTR [204. 6 3 RC50RT8 -[204, 6 ] RCSUMTYP- [ 204 , 7 JUTINTG -SR00T4 9 

$R00T4: .FCTR [204, 7 JUTBLANK -[204, 7]UTM0VE -$R00T5 10 

$R00T5 : .FCTR [204, 7}UTNAME3 -{204, 7 JUTHEADER- [ 204 , 7]UTF0PEN -$R00T8 11 

SR00T8: .FCTR [204, 7 juTFENCA -[204, 7 JUTFREAD -$R 00 T 9 12 

SR00T9; .FCTR [204. 7]UTRDSE0 -[204, 7 jUTCHARGT 13 

; 14 

VLB: [ 1 , 1 JRMS1 1M 15 

VLB: [1.1 3RMS12X 16 

; 17 

.END 18 


Figure 3-33 . RC Program Overlay Descriptor Language 
File (RC.ODL) 
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3.11 SEL DATA BASE RECORD COUNTING REPORT PROGRAM (RPSTSCTR) 


3.11.1 INTRODUCTION 

The SEL Data Base Record Counting Program (RPSTSCTR) counts 
the number of records in each file in the SEL data base and 
produces a one-page report of all counts. 

3.11.2 PROGRAM STRUCTURE 
3.11.2.1 Files Accessed 

The RPSTSCTR program accesses all SEL data base files as 
input files and produces one output report file. In addi- 
tion, the user's copy of the File Name and Status (STS) file 
is accessed as both an input and an output file. 


Input File Name 

Description 

[20 4,1] ENCODE. HDR 

Encoding Dictionary (ENC) file 

[20 4,1] HEADER. HDR 

Phase Dates (HDR) file 

[204,1] STAT.HDR 

STS file 

[204,1] EST.HDR 

Estimated Statistics (EST) file 

[204,1] <PRJNAM> . CIF 

Component Information File 
(CIF) for each project 

[204,1] <PRJNAM> . CMT 

Comment file for each project 

[204,1] <PRJNAM> . CRF 

Change Report Form (CRF) 
file for each project 

[204,1] <PRJNAM> . CSF 

Component Summary Form (CSF) 
file for each project 

[204,1] <PRJNAM> . CSR 

Component Status Report (CSR) 
file for each project 

[204,1] <PRJNAM> .HIS 

Growth History (HIS) file for 
each project 

[204,1] <PRJNAM> . RAF 

Run Analysis Form (RAF) file 
for each project 

[204,1] <PRJNAM> . RSF 

Resource Summary Form (RSF) file 
for each project 

[User’s UIC] STAT.HDR 

User's copy of the STS file 

In these file names, 

<PRJNAM> is the project name. 
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Output File Name 


Description 


STSCTR. RPT Output report file 

[User's UIC] STAT. HDR User's copy of the STS file 

3.11.2.2 Baseline Diagram 

Figure 3-34 is the baseline diagram for the RPSTSCTR pro- 
gram. The STSCTR routine is the driver that opens all input 
files, counts the number of records in each file, and then 
writes the output report. It also updates the user's copy 
of the STS file. 

3.11.3 SUBROUTINE/SUBSYSTEM DESCRIPTION 

The RPSTSCTR program references only two routines, STSCTR 
(main routine) and MOVECR, in addition to two system rou- 
tines (DATE, SECNDS ) and the RMSIAC routines. These two 
routines are described below. However, descriptions of the 
calling sequence variables for MOVECR are not provided. 

ROUTINE : STSCTR 

FUNCTION: Main routine of the RPSTSCTR program, counts the 

number of records in each file in the SEL data base and pro- 
duces a one-page report of all counts 

CALLING SEQUENCES: NONE 

ROUTINE : MOVECR 

FUNCTION: Moves given number of characters from one address 

to another. 

CALLING SEQUENCES: 

CALL MOVECR (INBUFF, OTBUFF, LENGTH) 
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Figure 3-34. Baseline Diagram for the SEL Data Base Record Counting 
Report Program (RPSTSCTR) 













3.11.4 TASK BUILD PROCEDURE 


3.11.4.1 Command Procedures 

The RPSTSCTR program can be generated from the source code 
by executing the command procedure RPSTSGEN.CMD under 
UIC [204,6]. Figure 3-35 is a listing of this command pro- 
cedure, which precompiles and compiles the FORTRAN routine, 
compiles the ASSEMBLER routine, and task builds the RPSTSCTR 
program. RPSTSGEN.CMD references another command procedure, 
RPSTSCTR. TKB, also under UIC [204,6], which builds the 
RPSTSCTR program task image. The RPSTSCTR program is gen- 
erated by entering the following command: 

@ [204,6] RPSTSGEN 

3.11.4.2 Overlay Structure 

The RPSTSCTR task is overlaid to reduce the memory space 
requirement. Figure 3-36 is a listing of the Overlay De- 
scriptor Language file, [204, 6] RPSTSCTR. ODL, needed to build 
the RPSTSCTR program task image. The system libraries 
RMS11M. ODL and RMS12X. ODL are needed for the overlay. In 
addition, the RMS Indexed Access Programs Library (RMSIAC) , 
[204, 7] UFRMSIAC.OLB, is also needed in the overlay. This 
library contains FORTRAN routines used to access RMS indexed 
files. 
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; i 

; ^RPSTSGEN . CMD 2 

; 3 

; COMMAND PROCEDURE TO GENERATE THE SEL DATA BASE RECORD COUNTING 4 

; PROGRAM ( RPSTSCTR ) FROM SOURCE CODES 5 

; (P. LO 8/11/82) 6 

; 7 

; PRECOMPILE STRUCTURED FORTRAN SOURCE CODES 8 

; 9 

FPP 5Y : [ 204 » 6 } RPSTSCTR 10 

: 1 1 

COMPILE FORTRAN SOURCE CODES 12 

l 13 

F0R/F4P/0BJECT : C 204 , 6 ] RPT.StCTP [ 204 , 6 3 RPSTSCTR 14 

; 15 

; COMPILE ASSEMBLER ROUTINE 16 

; 17 

MAC/OBJECT : T 204 , 7 jUTCHAREO [ 204 . 7 jUTCHAREQ 18 

; 19 

; TASK BUILD THE RPSTSCTR PROGRAM 20 

: 21 

TKB [ 204 ,6 ] RPSTSCTR . TKB 22 

: 23 

; 'SRPSTSCTR.TKB 24 

; 25 

; COMMAND PROCEDURE TO BUILD THE SEL DATA BASE RECORD COUNTING .26 

; PROGRAM (RPSTSCTR) 27 

; 28 

; [ 204 . 5 ] RPSTSCTR /FU , RPSTSCTR/NOSP/SH* [204 , 6 ] RPSTSCTR . ODL/MP 29 

; ACTF I L=2 30 

; UNITS =20 31 

; MAXBUF = 250 32 

;// 33 


Figure 3-35. RPSTSCTR Task Generation Command Procedure 
(RPSTSGEN.CMD) 


: 1 

; ^RPSTSCTR. ODL 2 

; 3 

; THE OVERLAY STRUCTURE FOR THE SEL DATA BASE RECORD COUNTING 4 

PROGRAM (RPSTSCTR) 5 

; (P. LO 8/11/82) 6 

; 7 

. ROOT RMSROT -OTSROT -SROOT , OTS ALL , RMS ALL 8 

$ROOT : ' , FCTR [ 204 , 6 ) RPSTSCTR- [204 ,7 JUTCHAREQ- [ 204 . 7 JUFRMS I AC/ LB 9 

: 10 

; 1 1 

®LB:[1. 1 ]RMS 1 1M . ODL 12 

®LB: [1,1 ] RMS 1 2X . ODL 13 

.END 14 


Figure 3-36. RPSTSCTR Program Overlay Descriptor Language 
File ( RPSTSCTR . ODL ) 
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3.12 COMPONENT NAME REPORT GENERATOR PROGRAM (RPCOMPNM) 


3.12.1 INTRODUCTION 

The Component Name Report Generator Program (RPCOMPNM) reads 
all Component Information Files (CIFs) on the SEL data base 
and produces a formatted and alphabetized report of component 
names and codes for all such files. 

3.12.2 PROGRAM STRUCTURE 


3.12.2.1 Files Accessed 

The RPCOMPNM program accesses all CIFs and the Encoding Dic- 
tionary as the input files and one output file. 


Input File Name 


Description 


[204 . 1] ENCODE. HDR Encoding Dictionary (ENC) file 

[204.1] <PRJNAM>.CIF CIF for each project, where <PRJNAM> 

is the project name 


Output File Name Description 

COMPNAMES . RPT Output report file 

3.12.2.2 Baseline Diagram 


Figure 3-37 is the baseline diagram for the RPCOMPNM pro- 
gram. The COMRPT routine is the driver that opens all input 
files, reads the desired data from the files, and writes the 
output report. 


3.12.3 SUBROUTINE/SUBSYSTEM DESCRIPTION 


In addition to two system routines (DATE, SECNDS) and the 
RMSIAC routines, the RPCOMPNM program references only one 
routine, the driver (COMRPT) , as described below. 


ROUTINE : COMRPT 

FUNCTION: Reads component names and codes from CIFs and 

writes a formatted report of all components for all projects. 

CALLING SEQUENCES: None 
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3.12.4 TASK BUILD PROCEDURE 


3.12.4.1 Command Procedures 

The RPCOMPNM program can be generated from the source code 
by executing the command procedure RPCOMGEN.CMD under 
UIC [204,6] . This command procedure precompiles and com- 
piles the FORTRAN routines and task builds the RPCOMPNM pro- 
gram. It references another command procedure, RPCOMPNM. TKB, 
also under UIC [204,6], which builds the RPCOMPNM program 
task image. Figure 3-38 is a listing of RPCOMGEN.CMD. The 
RPCOMPNM program is generated by executing the following 
command : 

§ [204,6] RPCOMGEN 

3.12.4.2 Overlay Structure 

The RPCOMPNM program is overlaid to reduce the memory space 
requirement. Figure 3-39 is a listing of the Overlay De- 
scriptor Language file, [204, 6] RPCOMPNM. ODL, needed to build 
the RPCOMPNM program task image. The system libraries 
RMS11M. ODL and RMS 1 2 X. ODL and the RMS indexed Access pro- 
grams Library (RMSIAC) are needed in the overlay. The name 
of this last library is UFRMSIAC.OLB, under UIC [204,7]; it 
contains FORTRAN routines used to access RMS indexed files. 
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frRPCOMGEN.CMD 


1 
2 
3 

; COMMAND PROCEDURE TO BUILD THE COMPONENT NAME GENERATOR (RPCOMPNM) 4 

TASK IMAGE FROM SOURCE CODE 5 

; (P. LO 9/9/82) 6 

; 7 

; P RECOMPILE FORTRAN ROUTINE 8 

; 9 

FPP SY : 1204 , 6 ] RPCOMPNM 1 0 

: 1 1 

; COMPILE FORTRAN ROUTINE 12 

; 13 

F0R/F4P/0BUECT: [ 204 . 6 JPRCOMPNM [ 204 , 6 jRPCQMPNM 14 

; 15 

; TASK BUILD THE RPCOMPNM PROGRAM 16 

; 17 

TKB 204, 6} RPCOMPNM. TKB IS 

; 19 

; ^RPCOMPNM . TKB 20 

; 21 

; COMMAND PROCEDURE TO BUILD THE TASK IMAGE FOR THE COMPONENT NAME 22 

; GENERATOR (RPCOMPNM) 23 

; 24 

; 1 204 , 5 ] RPCOMPNM/ FU= ( 204 , 6 ] RPCOMPNM/MP 25 

; UNITS=20 26 

; ACTF I L~2 27 

;// 28 


Figure 3-38. RPCOMPNM Task Generation Command Procedure 
(RPCOMGEN.CMD) 


; 1 

^RPCOMPNM . ODL 2 

; 3 

; THE OVERLAY STRUCTURE FOR THE COMPONENT NAME GENERATOR (RPCOMPNM) 4 

; (P. LO 9/9/82) 5 

; 6 

.ROOT SROOT-RMSROT-OTSROT , OTSA.LL * RMS A L L 7 

SROOT : . FCTR (204 , 6 ] RPCOMPNM- [204 , 7 ]UFRMS I AC/LB 8 

9 

; 10 

*LB: [ 1 , 1 ]RMS1 1M.0DL 1 1 

®LB: t 1 , 1 }RMS12X.0DL 12 

.END 13 


Figure 3-39, RPCOMPNM Program Overlay Descriptor Language 
File ( RPCOMPNM . ODL ) 
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3,13 SUBJECTIVE EVALUATIONS FILE LISTING PROGRAM ( DBRPTSEF) 


3.13.1 INTRODUCTION 

The Subjective Evaluations File Listing Program (DBRPTSEF) 
reads the Subjective Evaluations File (SEF) on the SEL data 
base and generates a formatted report of the contents of the 
file organized by the category of measure. 

3.13.2 PROGRAM STRUCTURE 
3.13.2.1 Files Accessed 

The DBRPTSEF program accesses two input files and one output 
file as described below. 


Input File Name 


Description 


(204 .1] ENCODE. HDR Encoding Dictionary File 

[204.1] SEF.HDR Subjective Evaluations File 


Output File Name 
[204,3] SEFDAT. RPT 


Description 

Output listing of the con- 
tents of the SEF 


3.13.2.2 Baseline Diagram 

Figure 3-40 is the baseline diagram for the DBRPTSEF pro- 
gram. The SEFRPT routine is the main driver. It opens all 
files, obtains all project codes from the SEF and the cor- 
responding project names from the Encoding Dictionary, ob- 
tains the user option for the category of measure to be 
listed, and then writes the selected listing from the SEF. 
It loops through this process until aAZ (control 2) is 
entered by the user in response to a prompt. 

3.13.3 SUBROUTINE/SUBSYSTEM DESCRIPTION 


The routines forming the DBRPTSEF program are grouped here 
by function. In each routine, the calling sequence variables 
are grouped according to input, input and output (if any) , 


3-191 


8818 



SEFRPT 



0 
i — I 

•H 

fa 


03 

C 

O 

-P 

0 

3 

pH 

rtf 

> 

fa 

CL) — 

> CN 
*H 

4J fal 
G O 
0 

•nH 
X! — 
3 

cn ~ 


fa 
CD fa 
rC c n 
-p &H 
fa 
fa 
fa 
Q 


o 

fai 


g 

rd g 
m rd 
D* M 
fd tn 
h o 
Q U 
fa 


C 

■H G 
pH -H 
0 fa 
03 03 
0 -H 
fa fa 


O 

I 

CO 

0 

p 

D 

tn 

•H 

fa 


3-192 
























































a/aiH 



G 

r-H 

•H 

(x, 

03 

£ 

O 

•H 

-P 

0 

rH 

03 

> 

P 

CD — 
> <N 
*H 

•P <4-1 
O O 
G 

•mCN 

3 

03 ^ 

g w 

,C 03 
-P ^ 

P 

G P 
m-4 q 


m fd 
CP 5-4 
rd CP 
*H O 
P U 
P 
G 

£ CP 
*H C 
< — 1 *H 
G -P 
03 03 
rd -H 
P P 


O 

m 

G 

P 

3 

CP 

•H 


3-193 

















































and output and appear in the calling sequence in that or- 
der,. In the following descriptions, each group of variables 
begins a new line. The calling sequence variables for the 
major DBRPTSEF routines are described in Section 3.13.3.5. 
Descriptions of the calling sequence variables for utility 
routines are not provided. In addition to the routines de- 
scribed in this section, the DBRPTSEF program also uses the 
following system routines: DATE, ERRSET, and SECNDS . 

3.13.3.1 Process Data and Produce Formatted Listing 

These 23 major routines process the SEF data and produce a 
formatted listing of the contents of the SEF. 

ROUTINE: GTCODE 

FUNCTION: Obtains all project codes from the SEF and the 

corresponding project names from the Encoding Dictionary and 
sorts them alphabetically 

CALLING SEQUENCE: 

CALL GTCODE (IENC, ISEF, 

PRCO, PROJ , I.REC, ERROR) 


ROUTINE : SEFRPT 

FUNCTION: Main routine of the DBRPTSEF program, produces a 

formatted listing of the contents of the SEF organized by 
category of measure 

CALLING SEQUENCE : None 
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ROUTINE: WRTAP 

FUNCTION: Generates the output listing for the experience 

with application (AP) measure 

CALLING SEQUENCE: 

CALL WRTAP (ISEF, IRPT, PROJ, PRCO, IREC) 

ROUTINE : WRTCO 

FUNCTION: Generates the output listing for the COCOMO (CO) 

model measure 

CALLING SEQUENCE: 

CALL WRTCO (ISEF, IRPT, PROJ, PRCO, IREC) 

ROUTINE : WRTCP 

FUNCTION: Generates the output listing for the complexity 

of problem (CP) measure 

CALLING SEQUENCE: 

CALL WRTCP (ISEF, IRPT, PROJ, PRCO, IREC) 

ROUTINE : WRTDC 

FUNCTION: Generates the output listing for the documenta- 

tion (DC) measure 

CALLING SEQUENCE: 

CALL WRTDC (ISEF, IRPT, PROJ, PRCO, IREC) 

ROUTINE : WRTEX 

FUNCTION: Generates the output listing for the external 

influences on project (EX) measure 

CALLING SEQUENCE: 

CALL WRTEX (ISEF, IRPT, PROJ, PRCO, IREC) 
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ROUTINE: WRTIN 


FUNCTION: Generates the output listing for the internal 

influences on project (IN) measure 

CALLING SEQUENCE: 

CALL WRTIN (ISEF, IRPT, PROJ, PRCO, IREC) 

ROUTINE : WRTMG 

FUNCTION; Generates the output listing for the effective- 
ness of management (MG) measure 

CALLING SEQUENCE: 

CALL WRTMG (ISEF, IRPT, PROJ, PRCO, IREC) 

ROUTINE: WRTMS 

FUNCTION: Generates the output listing for the miscel- 

laneous (MS) measure 

CALLING SEQUENCE: 

CALL WRTMS (ISEF, IRPT, PROJ, PRCO, IREC) 

ROUTINE : WRTMT 

FUNCTION: Generates the output listing for the practices 

and techniques (MT) measure 

CALLING SEQUENCE: 

CALL WRTMT (ISEF, IRPT, PROJ, PRCO, IREC) 

ROUTINE: ' WRTPF 

FUNCTION: Generates the output listing for the performance 

of team (PF) measure 

CALLING SEQUENCE: 

CALL WRTPF (ISEF, IRPT, PROJ, PRCO, IREC) 
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ROUTINE : WRTPP 


FUNCTION: Generates the output listing for the product/ 

process performance (PP) measure 

CALLING SEQUENCE: 

CALL WRTPP (ISEF, IRPT, PROJ, PRCO, IREC) 

ROUTINE: WRTPR 

FUNCTION: Generates the output listing for the software 

product (PR) measure 

CALLING SEQUENCE: 

CALL WRTPR (ISEF, IRPT, PROJ, PRCO, IREC) 

ROUTINE: WRTPS 

FUNCTION: Generates the output listing for the PRICE S3 

(PS) model measure 

CALLING SEQUENCE: 

CALL WRTPS (ISEF, IRPT, PROJ, PRCO, IREC) 

ROUTINE: WRTRA 

FUNCTION: Generates the output listing for the resources 

available (RA) measure 

CALLING SEQUENCE: 

CALL WRTRA (ISEF, IRPT, PROJ, PRCO, IREC) 

ROUTINE : WRTRK 

FUNCTION: Generates the output listing for the team rank 

(RK) measure 

CALLING SEQUENCE: 

CALL WRTRK (ISEF, IRPT, PROJ, PRCO, IREC) 
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ROUTINE : WRTSW 


FUNCTION: Generates the output listing for the code break- 

down (SW) measure 

CALLING SEQUENCE: 

CALL WRTSW (ISEF, IRPT, PROJ, PRCO, IREC) 

ROUTINE : WRTTS 

FUNCTION: Generates the output listing for the tools (TS) 

measure 

CALLING SEQUENCE: 

CALL WRTTS (ISEF, IRPT, PROJ, PRCO, IREC) 

ROUTINE: WRTWF 

FUNCTION: Generates the output listing for the Walston- 

Felix (WF) model measure 

CALLING SEQUENCE: 

CALL WRTWF (ISEF, IRPT, PROJ, PRCO, IREC) 

ROUTINE : WRTYA 

FUNCTION: Generates the output listing for the years of 

applicable experience (YA) measure 

CALLING SEQUENCE: 

CALL WRTYA (ISEF, IRPT, PROJ, PRCO, IREC) 

ROUTINE : WRTYE 

FUNCTION: Generates the output listing for the years of 

environment experience (YE) measure 

CALLING SEQUENCE: 

CALL WRTYE (ISEF, IRPT, PROJ, PRCO, IREC) 
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ROUTINE : WRTYP 


FUNCTION: Generates the output listing for the years of 

professional experience (YP) measure 

CALLING SEQUENCE: 

CALL WRTYP (ISEF, IRPT, PROJ, PRCO, IREC) 

3.13.3.2 Input and Output Routines 

These five routines perform either input or output .functions. 
ROUTINE : FENCA 

FUNCTION: Finds the description field on the Encoding Dic- 

tionary for the given type and code 

CALLING SEQUENCE: 

CALL FENCA ( IENCF , TYPE, CODE, 

NAME, REST, FOUND) 


ROUTINE : FOPEN 

FUNCTION: Opens an indexed file 

CALLING SEQUENCE: 

CALL FOPEN (IUNIT, FILNAM, 
ERROR) 


ROUTINE : FREAD 

FUNCTION: Reads one indexed record 

CALLING SEQUENCE: 

CALL FREAD (IUNIT, KEYVAL, KEYLEN, LRECL, 
BUFFER, ERROR) 
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ROUTINE: HEADR 


FUNCTION: Prints a two-line title for each report page, 

including the date and page number 

CALLING SEQUENCE; 

CALL HEADR (IRPT, TITLEl, TITLE2 , 

I PAGE) 


ROUTINE: RDSEF 

FUNCTION: Reads one record from the SEF 

CALLING SEQUENCE: 

CALL RDSEF (ISEF, KVAL, 

ERROR, BUF, LRECL) 

3.13.3.3 Sort Routine 

This routine provides a sort function. 

ROUTINE: SORT 8 

FUNCTION: Generates an array of indices to alphabetize the 

given name array 

CALLING SEQUENCE: 

CALL SORTS (MAX, NSORT , NAMES, 

SRTKEY) 

3.13.3.4 Routines Performing String Movement or Comparison 

These three routines deal with string movement or comparison. 
ROUTINE: CHARGT (L0GICAL*1 FUNCTION) 

FUNCTION: Determines if the first string is alphabetically 

after the second 

CALLING SEQUENCE: 

CHARGT (STRNG1 , STRNG2 , LEN) 
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ROUTINE: MATCHS ( LOGICAL *1 FUNCTION) 

FUNCTION: Determines whether two input strings match 

CALLING SEQUENCE: 

MATCHS (ARRAY1, ARRAY 2 , NBYTES) 

ROUTINE: MOVE 

FUNCTION: Moves a given number of bytes from one address to 

another 

CALLING SEQUENCE: 

CALL MOVE (A, B, LEN) 


3.13.3.5 Variable Description 

The variables in the calling sequences of major DBRPTSEF 
routines are described below 


Name 

Type 

Description 



BUF (578) 

L*1 

The SEF record buffer 



ERROR 

L*1 

Error flag 



IENC 

1*2 

FORTRAN unit number for 
ing Dictionary 

the 

Encod- 

I PAGE 

1*2 

Page number 



IREC 

1*2 

Number of projects 



IRPT 

1*2 

FORTRAN unit number for 
report file 

the 

output 

ISEF 

1*2 

FORTRAN unit number for 

the 

SEF 

KVAL (3) 

L*1 

Key value 



PRCO (70) 

1*2 

Array of project codes 



P RO J (70) 

R*8 

Array of project names 



TITLE1 ( 40 ) 

L*1 

First title line for each report 
page 

TITLE2 (50) 

L*1 

Second title line for each 

repor t 


page 
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3.13.4 TASK BUILD PROCEDURE 

3.13.4.1 Command Procedures 

The DBRPTSEF program can be generated from the source code 
by executing the command procedure DBSEFGEN.CMD under 
UIC [204,6]. This command procedure references three com- 
mand procedures--DBSEFFPP.CMD, DBSEFFOR.CMD, and 
DBRPTSEF. TKB— all under UIC [204,6] . Figure 3-41 is a list- 
ing of DBSEFGEN.CMD, the command procedure to precompile, 
compile, and task build the DBRPTSEF program. The DBRPTSEF 
task is generated by executing the following command: 

8 [204 , 6] DBSEFGEN 

3.13.4.2 Overlay Structure 

The DBRPTSEF program is overlaid to reduce the memory space 
requirement. Figure 3-42 is a listing of the Overlay De- 
scriptor Language file, [204,6] DBRPTSEF . ODL, needed to build 
the DBRPTSEF program task image. The system libraries 
RMS11M.ODL and RMS12X.ODL are needed for the overlay. 
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©DBSEFGEN.CMD 


1 
2 
3 

• COMMAND PROCEDURE TO GENERATE THE SUBJECTIVE EVALUATIONS FILE A 

; LISTING PROGRAM ( DBRPTSEF ) TASK IMAGE FROM SOURCE CODE 5 

; (P. LO 9/9/82) 6 

; 7 

; PRECCMPILE FORTRAN ROUTINES 8 

; 9 

® [ 204 ,6]DB5EFFPP. CMD 10 

; 1 1 

; $DBSEFFPP . CMD 12 

: 13 

; COMMAND -PROCEDURE TO PRECOMPILE ALL ROUTINES WRITTEN IN STRUCTURED 14 

FORTRAN FOR THE SUBJECTIVE EVALUATIONS FILE LISTING PROGRAM 15 

; (DBRPTSEF) (P. LO 9/9/82) 16 

; 1 7 

; ROUTINE WITH PREFIX SF 18 

; 19 

; FPP SY : [ 204 , 6]SFGTC00E 20 

; FPP SY : [ 204 , 6 ] SFHEADR 21 

; FPP SY : [ 204 , 6]SFRDSEF 22 

; FPP SY:[204, S]SFSEFRPT 23 

; FPP S Y : [ 204 , SjSFWRTAP 24 

; FPP SY : [ 204 , S ]SFWRTCO 25 

; FPP SY:[204. 6]SFWRTCP 26 

; FPP SY: [204. 6]SFWRTDC 27 

; FPP SY: [204. 6]SFWRTEX 28 

;FPP SY : [ 204 . 6]SFWRTIN 29 

: FPP SY : [204. 6)SFWRTMG’ 30 

; FPP SY : [ 204 . 6]SFWRTMS 31 

: FPP SY : [ 204 . 6 ] SFWRTMT 32 

; FPP SY : [ 204 , 6 3 SFWRTPF 33 

; FPP SY : [ 204 , 6]SFWRTPP 34 

; FPP S Y : [ 204 . 6 ] SFWRTPR 35 

; FPP SY: [204. SjSFWRTPS 36 

; FPP SY : [ 204 , 6 JSFWRTRA 37 

; FPP SY : [ 204 , 6 ] SFWRTRK 38 

; FPP SY : [ 204 , S]SFWRTSW 39 

; F P P SY : [ 204 . 6)SFWRTTS 40 

; FPP SY : [ 204 . 6]SFWRTWF 41 

; FPP SY: [204. SJSFWRTYA 42 

; FPP SY: [204. 6 ] SFWRTYE 43 

; FPP SY : [ 204 , 6]SFWRTYP 44 

• 45 

; ROUTINE WITH PREFIX DM, RC. OR UT 4S 

: 47 

: FPP SY: [204. 6]RCS0RT8 J8 

; FPP SY : [ 204 . 7 JUTCHARGT 49 

; FPP S Y : [ 204 . 7 JUTFENCA 50 

; FPP SY: [204, 7 ]UTFOPEN 51 

: FPP SY : [ 204 , 7 ]UTFREAD 52 

: FPP SY : [ 204 , 7]UTMATCHS 53 

; FPP S Y : [ 204 . 7 juTMOVE 54 

: FPP SY: [204, 15JDMZFILL 55 


Figure 3-41. DBRPTSEF Task Generation Command Procedure 
(DBSEFGEN.CMD) (1 of 2) 
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COMPILE FORTRAN ROUTINES 


® 1 204 , 6 JDBSEF FOR . CMD 
; -sDBSEFFOR.CMD 


COMMAND PROCEDURE TO COMPILE ALL 
EVALUATIONS FILE LISTING PROGRAM 
■<P. LO 9/9/82) 


FORTRAN ROUTINES FOR THE SUBJECTIVE 
(DBRPTSEF) 


ROUTINE WITH PREFIX SF 


FOR/ F4P /OBJECT : [204 . 6 JSFGTCQOE 
F 0R/F4P / OBJECT : [ 204 . 6 ]SFHE ADR 
F0R/F4P/0BJECT : [ 204 , 6 j SFRDSEF 
F0R/F4P/0B JECT : [ 204 , 6 JSFSEFRPT 
FOR/F 4P / OBJECT : [204 ,6 JSFWRTAP 
F0R/F4P/0B JECT : [ 204 , 6 J SFWRTCO 
F0R/F4P/0B JECT : [204 , 6 JSFWRTCP 
FOR/F 4P/ OBJECT : [ 204 . 6 JSFWRTDC 
F0R/F4P/0B JECT : [ 204 , 6 ] SFWRTEX 
F0R/F4P/0B JECT : [ 204 , € J SFWRTIN 
FQR/F4P/0B JECT : [204 , 6 ] SFWRTMG 
F0R/F4P/0B JECT : [ 204 .6 ] SFWRTMS 
F0R/F4P/0B JECT : [ 204 , 6 ] SFWRTMT 
F0R/F4P/QB JECT : [ 204 , 6 ] SFWRTPF 
F0R/F4P/08 JECT : [ 204 , 6 ] SFWRTPP 
FOR/ F4P/0B JECT : [ 204 , 6 J SFWRTPR 
F0R/F4P/ OBJECT : [ 204 f 6 ] SFWRTPS 
FOR/F 4P/0B JECT : [ 204 , 6 ] SFWRTRA 
F 0 R / F 4 P / OB JECT : [ 204 , 6 ] S F WRT RK 
F0R/F4P/0B JECT : [ 204 , S J SFWRTSW 
FOR/F 4P/0B JECT : [204 , 6]SFWRTTS 
F0R/F4P/0B JECT : [204 . 6 ] SFWRTWF 
F0R/F4P/0B JECT : [ 204 , 6 ] SFWRTY A 
F0R/F4P/0B JECT : [204 0 6 j SFWRTY E 
FOR/F 4P /OB JECT : [204 ,6}SFWRTYP 


(204, 63SFGTC0DE 
[ 204 , € ] SFHE ADR 

[204. 6 ] SFRDSEF 
[204, 6 JSFSEFRPT 
[204 ,6 JSFWRTAP 

[204. 6] SFWRTCO 
[204.6JSFWRTCP 
[204. 6 JSFWRTDC 
[204, 6 J SFWRTEX 

[ 204 . 6 ] SFWRTIN 
[204.6 j SFWRTMG 
[204 , 6 J SFWRTMS 

[204. 6] SFWRTMT 

[204. 6] SFWRTPF 
[204, 6 j SFWRTPP 

[204. 6 ] SFWRTPR 
l 204. 6] SFWRTPS 
[204, 6 3 SFWRTRA 
[ 204 , 6JSFWRTRK 
[204, 6 j SFWRTSW 

[204 . 6 ] SFWRTTS 
[204.63SFWRTWF 
[ 204 , 6 j SFWRTY A 
[204,6 J SFWRTY E 
[ 204 , 6 3 SFWRTY P 


ROUTINE WITH PREFIX DM, RC , OR UT 


F0R/F4P/0B JECT : [ 204 , 6 JRCS0RT8 
FOR/F 4P/0B JECT : [ 204 , 7 JUTCHARGT 
FOR / F4P/0B JECT : [ 204 . 7 JUTFENCA 
F0R/F4P/0B JECT : [ 204 , 7 jUTFOPEN 
FOR/ F4P/0B JECT : [ 204 . 7 ] UTFREAD 
FOR/ F4P/0B JECT : [ 204 , 7 JUTMATCHS 
F0R/F4P/0B JECT : [ 204 , 7 ] UTMOVE 
F0R/F4P/08 JECT ; [ 204, 15 JDMZF I LL 


[ 204 , 6 3 RCS0RT8 
[204,7 JUTCHARGT 
[204, 7 JUTFENCA 
[204,7 JUTFOPEN 
[ 204 . 7 JUTFREAD 
[204, 7 JUTMATCHS 
[204, 7) UTMOVE 
[204, ISjOMZf ILL 


TASK BUILD THE DBRPTSEF PROGRAM 


TKB ® [ 204 , 6 JDBRPTSEF . TKB 


^DBRPTSEF .TKB 


COMMAND PROCEDURE TO BUILD THE SUBJECTIVE EVALUATIONS FILE LISTING 
PROGRAM (DBRPTSEF) TASK IMAGE 
(P. LO 9/9/82) 

[ 204 . 5 JDBRPTSEF* [ 204 , 6 JDBRPTSEF . ODL/MP 
MAXBUF=578 

// 
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Figure .3-41. DBRPTSEF Task Generation Command Procedure 
(DBSEFGEN.CMD) (2 of 2 ) 
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ODBRPTSEF .DDL 


1 
2 
3 

; THE OVERLAY STRUCTURE FOR THE SUBJECTIVE EVALUATIONS FILE LISTING 4 

; PROGRAM (DBRPTSEF ) 5 

; (P. LO 9/9/82) 6 

: 7 

.ROOT RMSROT-OTSROT-SROOT , OTSALL , RMSALL 8 

$ROOT : . FCTR [204 , 6 ]SFSEFRPT- [ 204 , 7 JUTFDPEN - [204 . 7 lUTMATCHS-R 1 9 

R1: .FCTR [ 204 , 6 ] SFHE ADR - [ 204 . 6 ] SFRDSEF - [ 204 . 1 5 ]OMZF ILL-R2 10 

R2: .FCTR MCODE.WRT) 11 

: 12 

CODE: .FCTR [ 204 6 ] SFGTCODE-* ( READ , SORT ) 13 

READ: .FCTR [ 204 . 7 ]UTFENCA - [ 204 , 7 ]UTMOVE - [ 204 . 7 lUTFREAD , 14 

SORT: .FCTR [ 204 . 6 ] RCS0RT8 - [ 204 , 7 [UTCHARGT 1 15 

: IS 

WRT : .FCTR * ( A , B . C , D , E . F , G , H , I , J , K . L . M . N . 0 , P . 0 . R . S . T . U ) 17 

A: .FCTR [204 , 6 [SFWRTAP 18 

B: .FCTR [ 204 , 6 ] SFWRTCO 19 

C: .FCTR [ 204 , 6 [SFWRTCP 20 

D: .FCTR [ 204 . 6 [SFWRTDC 21 

E: .FCTR [ 204 . 6] SFWRTEX 22 

F: .FCTR [ 204 , S ] SFWRTIN 23 

G: .FCTR [ 204 , G [SFWRTMG 24 

H: FCTR [ 204 .6 ]SFWRTMS 25 

I: .FCTR [ 204 , 6 ] SFWRTMT 26 

J: .FCTR [ 204 . 6 ] SFWRTPF 27 

K: .FCTR [ 204 , 6 ] SFWRTPP 28 

L: .FCTR [ 204 , 6 ] SFWRTPR 29 

M: .FCTR [ 204 . 6 ] SFWRTPS 30 

N: .FCTR [ 204 , 6 ] SFWRTRA 31 

0: .FCTR [ 204 , 6 ] SFWRTRK 32 

P: .FCTR [204 ,S]SFWRTSW 33 

0: .FCTR [204,S]SFWRTTS 34 

R: .FCTR [ 204 , 6 ] SFWRTWF 35 

S: .FCTR [204 ,S JSFWRTYA 36 

T: .FCTR [204 .63SFWRTYE 37 

U: .FCTR [ 204 , 6 ] SFWRT YP 38 

: 39 

: 40 

?LB: [ 1 , 1 JRMS 11M.0DL 41 

*LB: [1, 1JRMS12X.0DL 42 

. END 43 


Figure 3-42 . DBRPTSEF Program Overlay Descriptor Language 
File (DBRPTSEF. ODL) 
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3.14 SUBJECTIVE EVALUATIONS DIRECTORY FILE LISTING PRO- 
CEDURE (DBRPTDIR) 

3.14.1 INTRODUCTION 

The Subjective Evaluations Directory File Listing Procedure 
(DBRPTDIR) lists the contents of the Subjective Evaluations 
Directory (DIR) file by using DATATRIEVE (Reference 4) . 

3.14.2 FILES ACCESSED 

The DBRPTDIR procedure accesses one input file and one out- 
put file as described below. 

Input File Name Description 

[ 204,1] DIR. HDR Subjective Evaluations Directory 

File 

Output File Name Description 

SEFDIR.RPT Output listing file 

3.14.3 DATATRIEVE COMMAND FILE 

Figure 3-43 is a listing of DBRPTDIR. DTR under UIC [204,4], 
a DATATRIEVE command file that generates a listing of the 
contents of the DIR file. 
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SET DICTIONARY [ 204 , 1 ]QUERY . DIC : 1 

READY SEFDIR; 2 

FIND C IN SEFDIR SORTED BY CODE: 3 

REPORT ALL CURRENT ON SEFDIR. RPT 4 

SET REPORT -NAME* "SUBJECTIVE EVALUATIONS DIRECTORY INFORMATION ( DIR . HDR ) " 5 

PRINT CODE ("CODE").. 6 

NAME (“ MEASURE"/" NAME ”). 7 

MIN-VALUE (" MIN "/" VALUE"). 8 

MAX-VALUE (" MAX "/" VALUE"), 9 

DATA-REC-NO ( "REC " / " SEO” ) . 10 

•SYTE-LOC ("BYTE"/" LOC"), 11 

DESCRIPTION ("DESCRIPTION") 12 

REPORT END 13 

14 

YOUR. REPORT IS ON FILES 'SEFDIR. RPT' 15 

PLEASE PRINT THIS FILE. 16 

17 


Figure 3-43. DBRPTDIR DATATRIEVE Command File 
(DBRPTDIR.DTR) 
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3.15 ENCODING DICTIONARY LISTING PROCEDURE (DBRPTENC) 


3.15.1 INTRODUCTION 

The Encoding Dictionary Listing Procedure (DBRPTENC) pro- 
duces a listing of the contents of the Encoding Dictionary 
File by using DATATRIEVE (Reference 4) . 

3.15.2 FILES ACCESSED 

The DBRPTENC procedure accesses one input file and one out- 
put file as described below. 

Input File Name Description 

(204,1] ENCODE. HDR Encoding Dictionary (ENC) 

file 

Output File Name Description 

ENC.RPT Output listing file of the 

Encoding Dictionary 

3.15.3 DATATRIEVE COMMAND FILE 

Figure 3-44 is a listing of DBRPTENC. DTR under UIC [204,4], 
the DATATRIEVE command file that generates a listing of the 
contents of the ENC File. 
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SET DICTIONARY £204*13 QUERY ♦ D I C * L 

READY ENC * 2 

FIND E IN ENC * i 

REPORT CURRENT SORTED BY TYPE* CODE ON ENC.RPT 4 

SET REPORT-NAME- 'ENCODING DICTIONARY < ENCODE ♦HDR )" *LINES~PAGE=60 * 5 

COLUMNS ™PAGE~90 6 

AT TOP OF TYPE PRINT SKIP* 7 

PRINT COL 10 * TYPE USING ZZ9* COL 18*C0DE USING XXXXX* 8 

COL 26* NAME* COL 40* REST 9 

REPORT END * 10 

( YOUR REPORT IS ON FILE 'ENC*RPT' 12 


Figure 3-44. DBRPTENC DATATRIEVE Command File 
( DBRPTENC • DTR) 
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3.16 PHASE DATES FILE LISTING PROCEDURE (DBRPTHDR) 


3.16.1 INTRODUCTION 

The Phase Dates File Listing Procedure (DBRPTHDR) produces 
listing of the contents of the Phase Dates (HDR) file by 
using DATATRIEVE (Reference 4) . 

3.16.2 FILES ACCESSED 

The DBRPTHDR procedure accesses one input file and one out 
put file as described below. 

Input File Name Description 

[204,1] HEADER. HDR HDR file 

Output File Name Description 

HDR.RPT Output listing file of the 

HDR file 

3.16.3 DATATRIEVE COMMAND FILE 

Figure 3-45 is a listing of [204, 4] DBRPTHDR. DTR, the 
DATATRIEVE command file that generates a listing of the con 
tents of the HDR file. 
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SET DICTIONARY [ 204 , 1 ]QUERY . D IC ; 1 

READY HDR ; 2 

FIND S IN HDR WITH DES 1 >0 3 

REPORT ALL CURRENT SORTED BY NAME ON HDR.RPT 4 

SET R EPORT -NAME = "HEADER DATA (FILE [ 204 , 1 ]HEADER . HDR ) " , LINES-PAGE=65 . 5 

COLUMNS -PAGE =78 S 

PRINT NAME (“PROJECT"). 7 

DES 1 (“DESIGN" / “START "/ “DATE “ ) USING 211221 . 8 

CODE 1 ("CODE & " / ” UN I T TEST" / "START "/ "DATE " ) USING 122222 . 9 

SYS 1 ( "SYSTEM“/"TEST“ / “START “/ "DATE " ) USING 222212 . 10 

ACC 1 ( "ACCEPT ANCE "/ "TEST " / “START »/ "DATE " ) USING 222222 . 11 

CLEAN 1 ("CLEANUP" /" START “/ "DATE " ) USING 222221 . 12 

CLEAN2 ("CLEANUP" /"END" /"DATE") USING 222222 13 

REPORT END 14 

I 15 

| YOUR REPORT IS ON FILE 'HDR.RPT' 16 


Figure 3-45. DBRPTHDR DATATRIEVE Command File 
(DBRPTHDR.DTR) 
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3.17 FILE NAME AND STATUS FILE LISTING PROCEDURE (DBRPTSTS ) 


3.17.1 INTRODUCTION 

The File Name and Status File Listing Procedure (DBRPTSTS) 
produces a listing of the contents of the File Name and Sta- 
tus (STS) file by using DATATRIEVE (Reference 4) . 

3.17.2 FILES ACCESSED 

The DBRPTSTS procedure accesses one input file and one out- 
put file as described below. 

Input File Name Description 

[204, lJSTAT.HDR STS file 

Output File Name Description 

STAT.RPT Output listing file of the 

STS file 

3.17.3 DATATRIEVE COMMAND FILE 

Figure 3-46 is a listing of [204, 4] DBRPTSTS. DTR, the 
DATATRIEVE command file that generates a listing of the con- 
tents of the STS file. 
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SET DICTIONARY C204 ? ,t I QUERY ♦ DIG 
READY STAT 
FIND S IN STAT 

REPORT CURRENT SORTED BY PROJ ON STAT ♦ RPT 

SET REPORT -NAME 35 * * DIRECTORY FILE - ST AT ♦ DAT " r 
COLUMNS -PAGE=90 

PRINT FILE USING ZZt NAME, CREATE ? BACKUP r UPDATE » 

NREC USING ZZZZZ 

AT TOP OF PROJ PRINT SKIP? “PROJECT «*>PROJ USING ZZ 
REPORT END 10 

! 11 

i YOUR REPORT IS ON FILE STAT *RPT 12 


Figure 3-46. 


DBRPTSTS DATATRIEVE Command File 
( DBRPTSTS . DTR) 
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3.18 ESTIMATED STATISTICS FILE LISTING PROCEDURE (DBRPTEST) 


3.18.1 INTRODUCTION 

The Estimated Statistics File Listing Procedure (DBRPTEST) 
produces a listing of the contents of the Estimated Sta- 
tistics (EST) file by using DATATRIEVE (Reference 4) . 

3.18.2 FILES ACCESSED 

The DBRPTEST procedure accesses one input file and two out- 
put files as described below. 

Input File Name Description 

[204, 1]EST.HDR EST file 


Output File Name Description 


ESTl.RPT Part one of the output re- 

port of the contents of the 
EST file 

EST2.RPT Part two of the output re- 

port of the contents of the 
EST file 

3.18.3 DATATRIEVE COMMAND FILE 

Figure 3-47 is a listing of DBRPTEST. DTR under UIC [204,4], 
the DATATRIEVE command file that generates the listings of 
the contents of the EST file. 
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SET DICTIONARY ( 204 , 1 ] QUERY . DIG ; 

READY ESTX; 

FIND E IN ESTX SORTED BY NAME ; 

REPORT ALL CURRENT ON EST 1 . RPT 

SET REPORT-NAME- "ESTIMATED STATISTICS — PART 1' 


PRINT 


NAME 

PRO J 

COMPN 

TOT -MOD 

NEW-MOD 

MOD-MOD 

RUNS 

CHANGES 

DOC 

TOTAL-LINES 

NEW-LINES 

MOD -LINES 

TOTAL-EXEC 

NEW-EXEC 

MOD-EXEC 


REPORT END 


( "PROJECT” ) , 

( " PRO J "/"CODE" ) , 

(" A" / "COMP " ) , 

(" TOT"/” #”/" MOD"), 

{" a"/» NEW"/" MOD"). 

(" A"/" MOD"/" MOD"), 

<" A OF" / • RUNS"), 

(" A OF" / "CHANGES”), 

( " PAGES"/" OF"/" DOC"), 

(" TOTAL"/" A OF"/" LINES"), 
(" A OF"/" NEW"/" LINES”), 

(» A OF"/" MOD IF"/" LINES"), 
("A OF"/" TOTAL ”/" EX ECUT " ) , 

( " A OF"/" NEW "/"EX ECUT ” ) , 

("A OF"/" MODI F "/■” EX ECUT " ) 


REPORT ALL CURRENT ON EST2.RPT 

SET R E PORT -NAME = "ESTIMATED STATISTICS -- PART 2 % 


PRINT NAME 
PRO J 
PROG 
MGMT 
OTHER 
S95 
575 
OTH 
STATUS 
ACTIVE 

PROJ-CATEGORY 

REPORT END 


( "PROJECT " ) , 

( "PROJ"/"CODE" 


PROG" 
MGMT" 
OTHER" 
360 " 
360 " 


). 

HOURS") 
HOURS" ) 
HOURS" ) 
95 " 
75 " 


OTHER "/"CMPUTR"/ ,! 
( "STAT"/ "FLAG"), 

( "ACTV"/ "FL AG"), 

( "PRQJ"/" CATG" ) 


HOURS"), 
HOURS'* ) . 


HOURS" ) , 


YOUR REPORT IS ON FILES 
PLEASE PRINT THESE FILES. 


' EST 1 .RPT' 
' EST2 . RPT ' 


FOR PART 1 AND 
FOR PART 2. 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 
1 1 
12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 
2 4 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

4 1 


Figure 3-47. DBRPTEST DATATRIEVE Command File 
( DBRPTEST . DTR) 
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